HTTPクライアントの作成（TCPクライアントサンプル）
ここでは、Perlを使ったクライアントの例としてインチキHTTPクライアントを作ってみたいと思います。 HTTPは日ごろ良く使っていて、馴染みも深いと思います。 ただし、ここで紹介するインチキHTTPクライアントはHTTPメッセージを表示するだけの簡単なものです。
HTTPクライアントサンプル
以下にインチキHTTPクライアントを示します。
#!/usr/bin/perl
use IO::Socket;
$sock = new IO::Socket::INET(PeerAddr=>'www.google.co.jp',
PeerPort=>80,
Proto=>'tcp');
die "IO::Socket : $!" unless $sock;
print $sock "GET / HTTP/1.0\r\n\r\n";
print <$sock>;
close($sock);
exit;
折角なので、作成したHTTPクライアントを使ってみたいと思います。 www.google.co.jpに接続すると以下のようになります。 (ただし、下記例では表示スペースに押し込むために一部結果を削ってあります。何となくこんな感じかなぁ程度に見てください。)
|
