トップページ⇒php
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のみ
0007nobodyさん02/03/10 02:31ID:???
君たちの大好きな？ということはここは厨房が対象の
スレなんですね。失礼させて頂きます。
0008nobodyさん02/03/10 02:33ID:???
$1 = head("Agent: NTTDoKyuMo/427/31\n");
0009use Socket;02/03/10 02:33ID:???
>>7
ここは別に厨対象じゃねーぞ。
3とかのアホ向け（藁
0010nobodyさん02/03/10 02:40ID:???
>>6さん

初心者なのでちょっとわからないのですが、#!/usr/local/bin/perl〜
で続く行がホスト名なのでしょうか？IEだと文字数オーバーしてしまい、
入らないのですが・・・。あとポート番号はデフォルトの8080でしょうか？
■ このスレッドは過去ログ倉庫に格納されています