07/11/28 00:29:11
スレタイと>>1読んで反省した。
スタンダードな書き方で書くべきでした。
my $table = <<'EOF' ;
1,A,B,C
2,A,C,B
3,C,A,D
EOF
my %table ;
foreach my $line ( split /\n/, $table ){
my @dat = split /,/, $line, 2 ;
$table{$dat[1]} = $dat[0] ;
}
foreach my $line ( split /\n/, $log ){
my @dat = split /,/, $line, 2 ;
print $dat[0] . ',' . $table{$dat[1]} . "\n" ;
}