- 487 名前：nobodyさん mailto:sage [2010/01/30(土) 03:08:25 ID:???]
- use IO::Socket;
print "URLを指定してください: ";
$url = <STDIN>;
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;}
$client_socket->close( );
これをCGIで実現して、それを使って>>485を作れって。何言ってるかわかんねぇと思うが俺もわかんねぇ
|
 |
