perlワンライナーでawkっぽく

CSVファイルの区切り文字がカンマ(普通)で
2列目の文字列と3列目が違う場合の1列目を表示

% perl -F',' -alne 'print $F[1] if $F[2] ne $F[3]' example.csv

Fはeより前でないとうまく動かない
http://www.team-lab.com/aoki/blog/index.php?itemid=96
http://search.cpan.org/dist/perl/pod/perlrun.pod

こういうのってhistoryでみれるからいいやって
いままで放置してきたけど
どのサーバで書いたか忘れちゃって、そのうちリプレースになって
また最初から調べることになりそうな予感がするので
これからは
些細なこともちゃんとめもしようとおもふ