２ちゃんねる互換掲示板ブラウザ雑談スレ

1 ：名無しさん＠お腹いっぱい。：2015/02/20(金) 23:57:08.80 ID:hZqOFWBh2: dat形式のスレッドデータを扱う２ちゃんねる専用ブラウザに関する情報交換・雑談を行うスレッドです

※Jim/山下APIに対応する専ブラは掲示板違いです
34 ：名無しさん＠お腹いっぱい。：2015/05/11(月) 16:17:11.93 ID:LoByeS+S3: net->sc URL変換のReplaceStr.txtを作るperlスクリプト作ったよ！（Strawberry Perl使用）
bbsmenuを拾ってきてホスト名も変換します。
http://www1.axfc.net/u/3465588.zip さっき作ったReplaceStr.txt入り

------ スクリプト ------
my @bbs_net = split m{\n},wget("http://menu.2ch.net/bbsmenu.html");
my @bbs_sc = split m{\n},wget("http://www.2ch.sc/bbsmenu.html");
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;
}
35 ：名無しさん＠お腹いっぱい。：2015/05/11(月) 16:38:29.95 ID:LoByeS+S3: [a-z0-0]じゃなくて[a-z0-9]だった再アップロード
http://www1.axfc.net/u/3465605.zip

総レス数 42
14 KB

新着レスの表示

掲示板に戻る全部前100 次100 最新50

read.cgi ver.24052200