68user's page 掲示板: 過去ログ

68user's page 掲示板

No. 1153 # 68user 2000/09/10 (日) 02:30:28

こちらの perl-5.6 では動いているので、おそらく 7行目の
$port = getservbyname('http','tcp');
で値が取得できていないんでしょう。
$port = getservbyname('http','tcp') || 80;
でどうですか。