103コメント26KB

use Socket;について熱く語るスレ

■ このスレッドは過去ログ倉庫に格納されています

0001use Socket;

02/03/10 01:50ID:Q1gcj2Im

Perlの醍醐味であるSocketについて語ろうぜ

※質問は専用スレへ。CGI串ってどこ？といった類もお断り

0002nobodyさん

02/03/10 01:50ID:???

２

0003nobodyさん

02/03/10 01:58ID:WvppN2j7

今だ！3ゲットォォｫｫ！！
￣￣￣￣￣∨￣￣￣　　　　　　　(´´
　　　　 ∧∧　　　）　　　　　　(´⌒(´
　　⊂（ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
　　　　　　￣￣　 (´⌒(´⌒;;
　　　　　　ｽﾞｻﾞｰｰｰｰｰｯ

0004nobodyさん

02/03/10 02:03ID:???

４げと

0005nobodyさん

02/03/10 02:08ID:???

5げとおおおおおおおおおおおおおおおお

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のみ

■ このスレッドは過去ログ倉庫に格納されています