---

■スレッドリストへ戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 最新50

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

984 ：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;

187KB

---

新着レスの表示

---

スレッドリストへ戻る 全部 前100 次100 最新50

0ch BBS 2004-10-30