use Socket;について熱く語るスレ
■ このスレッドは過去ログ倉庫に格納されています
0006use Socket;
02/03/10 02:26ID:Q1gcj2Im#!/usr/local/bin/perl
use IO::Socket;use LWP::Simple;
while(1){$n=IO::Socket::INET->new(LocalPort=>80,Listen=>10)->accept();
print$n get((split/ /,<$n>)[1]);$n->close();}
ほれ、君たちの大好きなProxyじゃ。ただしGETのみ
■ このスレッドは過去ログ倉庫に格納されています