如何使用Perl按列对CSV文件进行分组？

Question

我有以下数据：

Date    client  market  currency    ordersQty
5/12/2013   AAA ASE Doller  50
6/12/2013   BBB BSE pound   100
10/12/2013  CCC ASE pound   500

我想按月和市场对这些数据进行分组，将其拆分为多个CSV文件。

Answer 1

命令行中的Perl（所有X应替换为适当的数字）

perl -Mautodie -F'[\s/]+' -ane'
  if ($. ==1) { $h = $_; next }
  $k = "StatReport_$F[X]_$F[X]$F[X].csv";
  if (!$f{$k}) { open($f{$k}, ">", $k); s/^/$h/ }
  print { $f{$k} } $_;
' file