CSVを削りたい

要件：2つのCSVファイルの差分を取りたい。
条件：最後の4カラムがシステム項目（日付、時刻等）である。この部分を除いて差分を取りたい。
制限時間：1分でよろしく！

比較対象の両者を加工

while (<STDIN>) {
  @rec = split(/,/);
  @rec2 = @rec[0..$#rec-4];
  $rec2str = join(',',@rec2,"\n");
  print $rec2str;
}

って書いててきとーに名前つけて

type xxx.csv | perl trSysCol.pl > xxx.csv.2

STDOUT（Windowsならtype、Unixならcat）から加工対象をパイプで渡します。