[過去ﾛｸﾞ] メンヘル板【モナー薬局回答者控室】#17 (1001ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

499(1): HDI ◆hbVYHgubO6hK 2015/02/21(土) 17:26:37.78 AAS
サーバ待ちだったのでやっつけ仕事。
ついでにスクリプトも書いてみたので、わかる人だけ持って行ってください。

#!/usr/local/bin/perl

$ENV{http_proxy} = 'localhost:7743';

if ($ARGV[0] =~ m#/([-a-z0-9]+)\.(2ch.net|bbspink.com)/test/read.[a-z]+/([-a-z0-9_]+)/([0-9]{9,})/?#)
{
my ($host, $domain, $board, $threadkey) = ($1, $2, $3, $4);

if ($ARGV[1] =~ /^[-0-9_]+$/)
{$filename = "$ARGV[1]_${host}_${board}_$threadkey.html";}
else
{$filename = "${host}_${board}_$threadkey.html";}

$cmd = "wget -O $filename " .
"http://$host.$domain/test/read.cgi/$board/$threadkey/";

select STDOUT;
$| = 0;
print "START: $cmd\n";
exec $cmd;

# After retrieving, the file should be pased to [nkf -Sxe].
# Although [iconv -f cp932 -t eucjp-ms -c] might be more ubiquitous,
# I'm afraid it CAN change some letters....
}
else
{
die "Seems not to be a valid 2CH.NET URL: '$ARGV[0]'\n";
}

---

501(1): 2015/02/21(土) 22:27:36.24 AAS
>>499
いまどき
#!/usr/local/bin/perl
て、どれだけ古い人？

Linuxだったら、普通に
/usr/bin/perl
にはいってる

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.038s