*99の指定したCGIを*00が作るスレ (327ﾚｽ)
*99の指定したCGIを*00が作るスレ http://medaka.5ch.io/test/read.cgi/php/1037501017/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
227: nobodyさん [sage] 02/12/20 18:49 ID:??? >>225 まず、60x16ピクセルのgif画像を解析して5桁の数字を抜き出さないとだめみたいね。 ノイズも入ってないから出来るかも。 http://medaka.5ch.io/test/read.cgi/php/1037501017/227
228: nobodyさん [sage] 02/12/20 23:38 ID:??? おまいら趣旨を理解しやがってください。 http://medaka.5ch.io/test/read.cgi/php/1037501017/228
229: nobodyさん [] 02/12/24 23:42 ID:2kS8TiT1 メリクリ http://medaka.5ch.io/test/read.cgi/php/1037501017/229
230: nobodyさん [] 02/12/25 17:15 ID:U7g6MD4O >>229 ｸﾘﾒﾘ http://medaka.5ch.io/test/read.cgi/php/1037501017/230
231: nobodyさん [sage] 02/12/25 21:45 ID:??? ｳﾞｧﾘｭｸﾘ http://medaka.5ch.io/test/read.cgi/php/1037501017/231
232: nobodyさん [] 02/12/27 09:52 ID:PDegbcoZ クリスマス以降寂れたのか？ http://medaka.5ch.io/test/read.cgi/php/1037501017/232
233: nobodyさん [] 02/12/31 10:34 ID:2j4SuGi0 100ではないが99のはこんなんで良いのか？ URL取得部分が激甘なのでmailtoとか他のサイトの部分まで拾って痛いが（藁 #!/usr/local/bin/perl -w use Socket; $boardList = "board_list.dat"; if(!(-e $boardList)) { $method = "GET"; $host = "www.ff.iij4u.or.jp"; $path = "~ch2/bbsmenu.html"; $port = getservbyname('http', 'tcp'); $iaddr = inet_aton($host) || die "$connect_hostは存在しないホストです。\n"; $sock_addr = pack_sockaddr_in($port, $iaddr); socket(SOCKET, PF_INET, SOCK_STREAM, 0) || die "ソケットを生成できません。\n"; connect(SOCKET, $sock_addr) || die "$connect_host の ポート$portに接続できません。\n"; select(SOCKET); $|=1; select(STDOUT); print SOCKET "$method /$path HTTP/1.0\r\n"; print SOCKET "User-Agent: 2ch roulette/0.0 \r\n"; print SOCKET "\r\n"; http://medaka.5ch.io/test/read.cgi/php/1037501017/233
234: nobodyさん [] 02/12/31 10:34 ID:2j4SuGi0 続き while (<SOCKET>){ m/^\r\n$/ && last; } open(LIST, "> $boardList"); while (<SOCKET>){ if($_ =~ /HREF=([^> ]+)/) { print LIST "$1\n"; } } close(LIST); } open(LIST, $boardList); @board = <LIST>; close(LIST); srand(time^$$); $num = rand($#board); print "Location:$board[$num]\n\n"; http://medaka.5ch.io/test/read.cgi/php/1037501017/234
235: _ [] 02/12/31 10:48 ID:gfphPIoL http://freeweb2.kakiko.com/dengeki/indexc.htm http://medaka.5ch.io/test/read.cgi/php/1037501017/235
236: nobodyさん [] 02/12/31 13:16 ID:qLQW6luA おゆ〜 http://medaka.5ch.io/test/read.cgi/php/1037501017/236
237: nobodyさん [] 03/01/04 20:27 ID:tm/4/3y9 >>233 もうちょっと読みやすくつくってｸﾚ http://medaka.5ch.io/test/read.cgi/php/1037501017/237
238: nobodyさん [sage] 03/01/04 20:28 ID:??? >>237 読めないか？ http://medaka.5ch.io/test/read.cgi/php/1037501017/238
239: nobodyさん [] 03/01/04 21:21 ID:uoWySJDJ 読みにくい。 注釈文をいれようょ http://medaka.5ch.io/test/read.cgi/php/1037501017/239
240: 99 [sage] 03/01/05 14:51 ID:??? >>100 早く作れよ頃すぞ http://medaka.5ch.io/test/read.cgi/php/1037501017/240
241: nobodyさん [] 03/01/06 16:15 ID:vXxmrd3Z あげ http://medaka.5ch.io/test/read.cgi/php/1037501017/241
242: nobodyさん [sage] 03/01/10 16:05 ID:??? Perl らしくない。 もうちょっと呪文を混ぜようょ http://medaka.5ch.io/test/read.cgi/php/1037501017/242
243: nobodyさん [] 03/01/11 12:22 ID:9FJE/Arw Perl らしくない。 もうちょっと電波を混ぜようょ http://medaka.5ch.io/test/read.cgi/php/1037501017/243
244: nobodyさん [age] 03/01/11 12:32 ID:??? いいかげんそろそろ書かないとな、>>100 よォ！ http://medaka.5ch.io/test/read.cgi/php/1037501017/244
245: nobodyさん [sage] 03/01/12 02:32 ID:??? いつくらいに>>100が頃されますか？ http://medaka.5ch.io/test/read.cgi/php/1037501017/245
246: nobodyさん [] 03/01/13 01:58 ID:zFhrRpi4 if($a == 1){ #--VBじゃねえんだぞ---- # $a = $a + 1; $a++; } http://medaka.5ch.io/test/read.cgi/php/1037501017/246
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 81 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.012s