昨日の問題
http://d.hatena.ne.jp/yamazaru_rengou/20090117/1232208059
$ perl -wc ./csvConv2.pl Unrecognized character \xE2 at ./csvConv2.pl line 8.
コンパイルが通らないという問題でしたが、
Text::CSV_XS の perldoc からコードをコピペしたときに、全角スペース的な2バイトコードが混入していたことが原因でしたorz
なんでこんなのに気付けないのかorz
そして昨日書こうと思っていたのはこんな感じでした。
#!/opt/local/bin/perl -w use strict; use warnings; use Text::CSV_XS; my $csv = Text::CSV_XS->new(); my ( $io, $code ); open $io, "< code.csv"; while ( my $row = $csv->getline( $io ) ) { $code->{@$row[0]} = $row; } close $io; open $io, "< master.csv"; while ( my $row = $csv->getline( $io ) ) { print join( ",", @$row, @{$code->{@$row[0]}} ) . "\n"; } close $io; exit 0;