昨日の問題

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;

やはりruby、python と比較するといろいろ冗長な部分が多いですね…コレも自由度の高さゆえ。