Help for this page

Select Code to Download


  1. or download this
    csv
   in => \*ARGV,
   out => \*STDOUT,
   after_parse => sub { $_[1]->@* = $_[1]->@[ 1, 0, 3, 2 ] };
  2. or download this
    perl -MText::CSV_XS=csv -e'csv in => \*ARGV, out => \*STDOUT, after_pa
+rse => sub { $_[1]->@* = $_[1]->@[1,0,3,2] }' a.csv