Help for this page

Select Code to Download


  1. or download this
       push @d_array, [ $csv->fields() ];
    
  2. or download this
    @d_array = map { $csv->parse($_) ? [ $csv->fields() ] 
                                     : warn($csv->error_input), () }
                    <INFILE>;
    
  3. or download this
    sub printRow{
      my ($aref) = @_;
    ...
    ## call like this ..
    
    printRow(\@d_array); # using & is deprecated