読み込み時に $a3a の改行コードを取り除いてないからです

IN の open から close までを書き直してみました


open(IN, "$logfile_all") || &error("error");
while($readline = <IN>){
$readline =~ s/\x0D\x0A|\x0D|\x0A//;
my($num, $name, $flag) = split(/,/, $readline);
if($in{'no'} eq $num){
$readline = "$num,$name,1";
}
$readline .= "\n";
push(@new, $readline);
}
close(IN);