10/01/30 03:23:52
use CGI;
$query = new CGI;
use IO::Socket;
print $query->header(-charset=>'UTF-8'),$query->start_html(-title=>"9.4");
print "<ul>\n";
$url = $query->param('url');
chomp($url);
if ($url =~ /http:\/\/([^\/]+)(\/.*)/) {
$host = $1;
$file = $2;
} else {
die "そのURLには対応していません。\n";
}
$client_socket = new IO::Socket::INET (
PeerAddr => $host,
PeerPort => 'http',
Proto => 'tcp',
TimeOut => '5' );
unless ($client_socket) {
print "Socket Error:$!\n";
}
print "$host $file" . "\n";
print $client_socket "GET $file HTTP/1.0\n\n";
while ($receive = <$client_socket>) {
print $receive;
}
print "</ul>\n";
print $query->end_html( );
$client_socket->close( );
こんなん？