くだすれPerl（超初心者用）

くだすれPerl（超初心者用） at PHP

512:nobodyさん
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" ;
}

次ページ

続きを表示

1を表示