*99の指定したCGIを*00が作るスレ (327ﾚｽ)

*99の指定したCGIを*00が作るスレ http://medaka.5ch.net/test/read.cgi/php/1037501017/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

307: perlお勉強中 [] 03/07/12 15:28 ID:FW3/pTdg >>99ネタ#1 #/usr/local/bin/perl use Socket; use FileHandle; $list_url = 'http://www.ff.iij4u.or.jp/~ch2/bbsmenu.html'; &get_list; srand(time|$$); $url = $list[rand(@list)]; if ($ENV{'PERLXS'} eq "PerlIS") { 　　　　print "HTTP/1.0 302 Temporary Redirection\r\n"; 　　　　print "Content-type: text/html\n"; } print "Location: $url\n\n"; exit; http://medaka.5ch.net/test/read.cgi/php/1037501017/307

308: perlお勉強中 [] 03/07/12 15:29 ID:FW3/pTdg >>99ネタ#2 sub get_list { 　　　　$list_url =~ m!(http:)?(//)?([^:/]*)?(/.*)?!; 　　　　if ($3) {$_host = $3;} 　　　　if ($4) {$_path = $4;} 　　　　$_ip = inet_aton($_host) || die "host($_host) not found.\n"; 　　　　$_sockaddr = pack_sockaddr_in(80, $_ip); 　　　　socket(SOCKET, PF_INET, SOCK_STREAM, 0) || die "socket error.\n"; 　　　　# ソケットの接続 　　　　connect(SOCKET, $_sockaddr) || die "connect $_host error.\n"; 　　　　autoflush SOCKET (1); 　　　　# HTTP要求を送信 　　　　print SOCKET "GET $_path HTTP/1.1\n"; 　　　　print SOCKET "Host: $_host\n"; 　　　　print SOCKET "Connection: close\n\n"; 　　　　# HTTP応答を受信 　　　　while (<SOCKET>) { 　　　　　　　　last if(/^\n$/); 　　　　} 　　　　while (<SOCKET>) { 　　　　　　　　push @list, "$&" if(m!(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)!); 　　　　} } http://medaka.5ch.net/test/read.cgi/php/1037501017/308

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.417s*