*99の指定したCGIを*00が作るスレ (327レス)
*99の指定したCGIを*00が作るスレ http://medaka.5ch.net/test/read.cgi/php/1037501017/
上
下
前
次
1-
新
通常表示
512バイト分割
レス栞
リロード規制
です。10分ほどで解除するので、
他のブラウザ
へ避難してください。
1: nobodyさん [] 02/11/17 11:43 ID:r2gR01qm おいおまいら、WebProg板でもこのスレをやってみましょう、おながいします。 ただし、*99があまりにも難しすぎるお題だったり、荒らし、明らかに厨発言だった場合、 *98さんに繰り下げするとかでおながいします。 というわけでまずは>>99-100おながいします。 http://medaka.5ch.net/test/read.cgi/php/1037501017/1
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
309: nobodyさん [0] 03/07/12 15:55 ID:??? ものすごい数のサンプルと画像を集めてみました。モロ こきすぎ注意 http://www.h2.dion.ne.jp/~m_oka/moemoe/ero_03.html http://medaka.5ch.net/test/read.cgi/php/1037501017/309
310: perlお勉強中 [sage] 03/07/12 16:37 ID:??? >>299のネタ #/usr/local/bin/perl use Socket; use FileHandle; # 最新のURLを探索 $list_url = 'http://www.who.int/csr/sars/country/en/'; $key = 'Full text'; &http_connect; while (<SOCKET>) { last if(/$key/); } close(SOCKET); # SARS情報を取得 $list_url="http://www.who.int".$&."/" if(m!(/[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)!); $list_url =~ s/entity\///; $key = 'Total'; &http_connect; while (<SOCKET>) { last if(/$key/); } # 行数決め打ちで死亡者数を切り出し for($i=0;$i<24;$i++) {$number=<SOCKET>;} $number =~ m/\d+/; $number = $&; #結果表示 print "Content-type: text/html\n\n"; print "<html lang=\"jp\"><body>"; print "SARSによる死者数は$number人です\n<br>"; print "ソ\ース:$list_url\n</body></html>\n"; close(SOCKET); exit; http://medaka.5ch.net/test/read.cgi/php/1037501017/310
311: perlお勉強中 [sage] 03/07/12 16:38 ID:??? >>299のネタ#2 # socket接続 sub http_connect { $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$/); } } http://medaka.5ch.net/test/read.cgi/php/1037501017/311
312: 山崎 渉 [(^^)] 03/07/15 11:07 ID:??? __∧_∧_ |( ^^ )| <寝るぽ(^^) |\⌒⌒⌒\ \ |⌒⌒⌒~| 山崎渉 ~ ̄ ̄ ̄ ̄ http://medaka.5ch.net/test/read.cgi/php/1037501017/312
313: 山崎 渉 [(^^)sage] 03/08/02 02:42 ID:??? ∧_∧ ( ^^ )< ぬるぽ(^^) http://medaka.5ch.net/test/read.cgi/php/1037501017/313
314: ぼるじょあ ◆ySd1dMH5Gk [(^^)] 03/08/02 05:29 ID:??? ∧_∧ ∧_∧ ピュ.ー ( ・3・) ( ^^ ) <これからも僕たちを応援して下さいね(^^)。 =〔~∪ ̄ ̄ ̄∪ ̄ ̄〕 = ◎――――――◎ 山崎渉&ぼるじょあ http://medaka.5ch.net/test/read.cgi/php/1037501017/314
315: nobodyさん [0] 03/08/02 17:47 ID:??? 次の00には何を作ってもらうかを考えよ〜 http://medaka.5ch.net/test/read.cgi/php/1037501017/315
316: 99 [sage] 03/08/14 10:32 ID:??? >>100 早く作れよ頃すぞ http://medaka.5ch.net/test/read.cgi/php/1037501017/316
317: 山崎 渉 [(^^)] 03/08/15 22:45 ID:??? (⌒V⌒) │ ^ ^ │<これからも僕を応援して下さいね(^^)。 ⊂| |つ (_)(_) 山崎パン http://medaka.5ch.net/test/read.cgi/php/1037501017/317
318: nobodyさん [age] 04/03/21 15:32 ID:??? >>100 早くつくれよ、こっちは待ってんだぞ http://medaka.5ch.net/test/read.cgi/php/1037501017/318
319: !100 [sage] 04/03/22 04:48 ID:??? <title>2ちゃんねるルーレット</title> <?php $url = 'http://127.0.0.1/bbsmenu.html'; $sec = 5; if ($lines = preg_grep("/^<A HREF=.+?>.+?<\/A>/", file($url))) { srand(); print preg_replace( "/^<A HREF=(.+?)>(.+?)<\/A>.*/", "$sec 秒後に<a href=\"$1\">$2</a>へ移動<meta http-equiv=\"Refresh\" content=\"$sec;URL=$1\">", $lines[array_rand($lines)] ); } ?> >>318 作ってやったから金払え http://medaka.5ch.net/test/read.cgi/php/1037501017/319
320: nobodyさん [sage] 04/06/18 10:15 ID:??? while(1) { print("ぬるぽ\n"); } http://medaka.5ch.net/test/read.cgi/php/1037501017/320
321: nobodyさん [] 04/12/18 17:51:09 ID:neHl2NC1 age http://medaka.5ch.net/test/read.cgi/php/1037501017/321
322: nobodyさん [] 2008/11/07(金) 14:31:55 ID:YMX4hGRf ageeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee http://medaka.5ch.net/test/read.cgi/php/1037501017/322
323: nobodyさん [] 2008/12/23(火) 14:29:41 ID:IREBlBH+ age http://medaka.5ch.net/test/read.cgi/php/1037501017/323
324: 電脳プリオン [sage] 2011/12/11(日) 22:20:46.62 ID:??? | | ガガガガガッ | | 人 ∧_∧ < >_∧∩ ( ・∀・) 人`Д´)/ ←>>272 と ) < >_∧∩ Y /ノ .人`Д´)/ ←>>313 / ) < >_∧∩ _/し' //. V`Д´)/ ←>>320 (_フ彡 / http://medaka.5ch.net/test/read.cgi/php/1037501017/324
325: nobodyさん [] 2013/03/27(水) 19:39:59.35 ID:IuHY8fTv _ |O\ | \ キリキリ ∧|∧ \ キリキリ ググゥ>(;⌒ヽ \ ∪ | (~) ∪∪ γ´⌒`ヽ ) ) {i:i:i:i:i:i:i:i:} ( ( ( ´・ω・)、 (O ⌒ )O ⊂_)∪ http://medaka.5ch.net/test/read.cgi/php/1037501017/325
326: nobodyさん [] 2017/12/30(土) 13:00:29.15 ID:YhlYw6jg 誰でも簡単にネットで稼げる方法など 参考までに、 ⇒ 『半藤のブブイウイウレレ』 というサイトで見ることができます。 グーグル検索⇒『半藤のブブイウイウレレ』 9R1ADQXKGO http://medaka.5ch.net/test/read.cgi/php/1037501017/326
327: nobodyさん [sage] 2023/10/15(日) 04:32:20.79 ID:??? もっと君のかわいい声ききたいな…ほら、その手どけてよ…もっと聞かせて… http://medaka.5ch.net/test/read.cgi/php/1037501017/327
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.004s