【ｽﾚｯﾄﾞ】2ｃｈ型掲示板 その5【ﾌﾛｰﾄ型】

[0984 nobodyさん 02/08/03 22:42 ID:???]

ﾛｸﾞ取りスクリプトできたぞ(ｩｦｯﾌﾟ
ヘボコードだから966が責任持って洗練してくれ(ｦﾌﾟﾌﾟ

#!/usr/bin/perl
use strict;
my($server,$board) = ('comic.2ch.net','anime');
system "wget -x http://$server/$board/subject.txt";
die 'openできねぇよ。ｼﾊﾞｸぞ （ﾜﾗﾜﾗ' unless open FH, "<./$server/$board/subject.txt";
/(.*)<>(.*)/, print("$2\n$1 ってﾔｼなこれからDLしてらるからな。\nﾛｸﾞっつったらﾛｸﾞ。これで$.個目のﾛｸﾞだ。（ｩｦｯﾌﾟ\n\n"), system("wget -xc http://$server/$board/dat/$1") while $_ = readline *FH;