声優個人 自治スレッド 13at VOICEACTOR声優個人 自治スレッド 13 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このスレッドのURL■項目テキスト250:名無しさん@お腹いっぱい。 07/06/04 04:30:29 99ihiUZa0 #!/usr/local/bin/perl use strict; use LWP::Simple; while (1) { my $url = <STDIN>; if (!$url) { next; } my $content = get($url); my $result = ""; foreach my $buf (split(/<\/tr>/, $content)) { if ($buf =~ /<a href=([^ ]+) target=\"_blank\">.+(20\d{2}\/\d{2}\/\d{2})[^ ]+ (\d{2}:\d{2}:\d{2} ID:[^<]+)<dd>/) { $result .= "$1 $2 $3\n"; } } print "$result\n"; open(FH, ">> ./result.txt"); print FH "$result\n"; close(FH); } exit; 251:名無しさん@お腹いっぱい。 07/06/04 10:03:34 jetvPT8k0 今日もまたやってるな http://hissi.dyndns.ws/read.php/voiceactor/20070604/OE5KYzFmdXow.html 252:名無しさん@お腹いっぱい。 07/06/04 11:39:26 oSyi+Ind0 >>251 ものすごい勢いで広告・宣伝を報告するスレ 113 http://qb5.2ch.net/test/read.cgi/sec2chd/1180081611/ 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch