SBP：結城浩の「Perlクイズ」

自由課題は苦手です。 ポイントは "あえてHTTPクライアント" です。 欠点は、LWPモジュールがあるというのに...という点とヘッダもprintする点です。 use IO::Socket; $ARGV[0]=~m'http://([^:]+?)(:(\d+))?(/.*)'||die"usage: perl $0 http://.../...\n"; $s=IO::Socket::INET->new(PeerAddr=>$1.':'.($3||80)); $s->autoflush(1); print$s "GET ".$4." HTTP/1.0\n\n"; print$_ while(<$s>); 引数にURLを指定すると、そのページを表示するようです。 例えば、このファイルをhttp.plとすると、 perl http.pl http://www.yahoo.com/ で、Yaho