じんそんのぶにっき

スレに連投すると日記になってしまうので、こちらにカキコ
331氏のrget.plの
##カキコ部分の出力
から
#字幕(sub)ファイルにカキコ。
を、以下に置き換え

$msg = '=' . $line;
$msg =~ s/<speak[^>]*>//i;
$msg =~ s/&#60\;/</g; $msg =~ s/&#62\;/>/g;
$msg =~ s/<a id.*\/a>//ig;
$msg =~ s/<[^>]*>//g;
$msg =~ s/http\:\/[\.]*//ig;
$msg =~ s/\([\s]*\([\s]*/\(/g; $msg =~ s/[\s]*\)[\s]*\)/\)/g;
if($msg =~ /^\=.*[\s]ttp\:\/\/|の書込みランキング|のニュース＆|のスレッドは/i){ $msg = "\n"; }
$msg =~ s/^\=//;