作ってみた。
かちゅ〜しゃ→ホットゾヌのボード一覧コンバータ(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\t
http://$str_b/$str_c/\thttp://$str_b/$str_c/index.htm\t0\t0\tclWindowText\t\n";
}
}
close(BRD); close(ZRD);
print ' done.';