for($i=1;$i<=4;$i++){
open(F2,"$i.txt");
while(<F2>){
chomp;
@b=split(/\t/,$_);
foreach($b[0]){
if(exists $lines{$b[0]}){ #邏輯錯(cuò)誤的地方
$lines{$b[0]}.="\t".$b[1];
}else{
$lines{$_}.="\t"."0";
}
}
}
close(F2);
}
$record{$id}->{$ARGV} = $val;
$record{$id}->{$ARGV} = $val;
歡迎光臨 Chinaunix (http://72891.cn/) | Powered by Discuz! X3.2 |