最強の2ちゃんねるブラウザはどれだ?

このエントリーをはてなブックマークに追加
631かちゅ禁 ◆YbjGM952
作ってみた。
かちゅ〜しゃ→ホットゾヌのボード一覧コンバータ(Perl)。


#!c:/perl/bin/perl

# かちゅ〜しゃ用ボードリストの場所
$boardname = './2channel.brd';
# ホットゾヌ用ボードリストの場所(このファイルは無くてもOK)
$zonuboard = './board.2ch';

print 'Converting....';

open BRD, $boardname or die "Can't open $boardname";
open ZRD, ">$zonuboard" or die "Can't write $boardname";

while(my $tmp = <BRD>) {

my ($str_a, $str_b, $str_c, $str_d) = split /\t/, $tmp;
next if(!$str_b);

if(!$str_c) { print ZRD "\t$str_a\n"; }
else {
my $str_b2 = $str_b;

$str_b2 =~ s/\./_/g;
$str_b2 .= "_$str_c";
$str_d =~ s/\r\n//;

print ZRD "$str_b2\t$str_c\t$str_d\thttp://$str_b/$str_c/\thttp://$str_b/$str_c/index.htm\t0\t0\tclWindowText\t\n";
}

}

close(BRD); close(ZRD);

print ' done.';