07/10/08 13:55:16 CXHxT1FO0
checksub.pl の 610 行付近
元コード
> $tmpline = decode("shiftjis", $tmpline);
> $tmpline =~ s/\x{fffd}./\?\?/g;
> if($dattype eq "giko-jbbs") {
> $tmpline =~ s/^\d*<>(.*)<>(.*)<>(\d\d\d\d\/\d\d\/\d\d\(.*\) \d\d:\d\d:\d\d)<>(.*<>)(.*)<>(........)\n/$1<>$2<>$3 ID:$6<>$4$5\n/;
> }
> if($dattype ne "katjusha") {
> $tmpline =~ s/,/＠｀/g;
> $tmpline =~ s/<>/,/g;
> }
>
> @input = split(/,/, $tmpline);
変更後コード
> $tmpline = decode("shiftjis", $tmpline);
># $tmpline =~ s/\x{fffd}./\?\?/g;
> if($dattype eq "giko-jbbs") {
> $tmpline =~ s/^\d*<>(.*)<>(.*)<>(\d\d\d\d\/\d\d\/\d\d\(.*\) \d\d:\d\d:\d\d)<>(.*<>)(.*)<>(........)\n/$1<>$2<>$3 ID:$6<>$4$5\n/;
> }
> if($dattype ne "katjusha") {
> $tmpline =~ s/,/＠｀/g;
> $tmpline =~ s/<>/,/g;
> }
>
> @input = split(/,/, $tmpline);
> for( $i=0 ; $i <= $#input ; $i++ ){
> $input[$i] =~ s/\x{fffd}./\?\?/g;
> $input[$i] =~ s/\x{fffd}/\?/g;
> }
> $tmpline =~ s/\x{fffd}./\?\?/g;