Perlコーディング初心者質問スレ Part 56

Perlコーディング初心 ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

280:nobodyさん
 07/10/07 18:18:02 LZD6O2BK
フォーチだろ。

281:nobodyさん
 07/10/07 21:49:16 lRWvT8wN
ソケット使ってホームページを取得するプログラムを書いてます。 
HTTP/1.1 200 OKが返ってきて、Content-lengthもある程度あるのに、 
フッタが何もないことがあるのですがどうしてでしょうか。 
正常に見れるサイトもあります。 
 
use Socket; 
use FileHandle; 
 
$host = "www.ftnet.or.jp"; 
$path = "/FTtuusin/index.html"; 
$port = 80; 
 
$ip = inet_aton($host) || &error("host($host) not found.\n"); 
$SOCKADDR = pack_sockaddr_in($port, $ip); 
$res = &connect($host,$path,$port); 
print $res; 
 
exit;

282:nobodyさん
 07/10/07 21:51:37 lRWvT8wN
sub connect { 
 my ($res, $host, $path, $port); 
 $res = ""; 
 $host = $_[0]; 
 $path = $_[1]; 
 $port = $_[2]; 
  
 # ソケットの生成 
 socket(SOCKET, PF_INET, SOCK_STREAM, 0) || return -1; 
 # ソケットの接続 
 connect(SOCKET, $SOCKADDR) || return -2; 
 autoflush SOCKET (1); 
 
 print SOCKET "GET $path HTTP/1.1\n"; 
 print SOCKET "Referer: $url\n"; 
 print SOCKET "Host: $host:$port\n"; 
 print SOCKET "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)\n"; 
 print SOCKET "Connection: close\n"; 
 print SOCKET "\n"; 
 
 
 foreach (<SOCKET>) { 
  $res .= $_; 
 } 
 close SOCKET; 
 return $res; 
}

次ページ