△▲　WebProg 初心者の質問 Part21　▼▽

△▲　WebProg 初心者の質問 Part21　▼▽ at PHP

487:nobodyさん
10/01/30 03:08:25
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を作れって。何言ってるかわかんねぇと思うが俺もわかんねぇ

次ページ

続きを表示

1を表示