15/05/11 16:17:11.93 LoByeS+S3
net->sc URL変換のReplaceStr.txtを作るperlスクリプト作ったよ！（Strawberry Perl使用）
bbsmenuを拾ってきてホスト名も変換します。
URLﾘﾝｸ(www1.axfc.net) さっき作ったReplaceStr.txt入り
------ スクリプト ------
my @bbs_net = split m{\n},wget("URLﾘﾝｸ(menu.2ch.net));
my @bbs_sc = split m{\n},wget("URLﾘﾝｸ(www.2ch.sc));
my %net;
open(FILE,">ReplaceStr.txt");
for $line (@bbs_net) {
if($line =~ /(http:\/\/[a-z0-0]+\.2ch.net\/)([a-z0-9]+)\/>/ ) { $net{$2} = $1; }
}
for $line (@bbs_sc) {
if($line =~ /(http:\/\/[a-z0-0]+\.2ch.sc\/)([a-z0-9]+)\/>/ && $net{$2}) {
print FILE "<ex>$net{$2}test/read.cgi/$2/\t$1test/read.cgi/$2/\tmsg\n";
}
}
close(FILE);
sub wget {
use LWP::UserAgent;
my $user_agent = "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0)";
my $ua = LWP::UserAgent->new('agent' => $user_agent);
my $res = $ua->get($_[0]);
return $res->content;
}