$line = 1;\r
while(<RES>) {\r
chop;\r
- split(/ /);\r
+ ($key, $value) = split(/ /);\r
\r
- if ($listinfo{$_[0]} eq "u") {\r
+ if ($listinfo{$key} eq "u") {\r
# the ID is exists in list and occures first time.\r
- $listinfo{$_[0]} = "e";\r
- } elsif (defined($listinfo{$_[0]})) {\r
- $listinfo{$_[0]} = "d";\r
+ $listinfo{$key} = "e";\r
+ } elsif (defined($listinfo{$key})) {\r
+ $listinfo{$key} = "d";\r
} else {\r
# unknown ID\r
- $listinfo{$_[0]} = "x";\r
+ $listinfo{$key} = "x";\r
}\r
- $msgline{$_[0]} = $_[1];\r
+ $msgline{$key} = $value;\r
$line++;\r
}\r
close(RES);\r
open(SRC, $baseres) || die;\r
while(<SRC>) {\r
chop;\r
- split(/\t/);\r
- $msgpair{$_[0]} = $_[1];\r
+ ($key, $value) = split(/\t/);\r
+ $msgpair{$key} = $value;\r
}\r
close(SRC);\r
\r