Help for this page

Select Code to Download


  1. or download this
    use Text::CSV_XS qw( csv );

...
my %fld = map { $_ => 1 } map { keys %$_ } @records;

csv (in => \@records, headers => [ sort keys %fld ]);
  2. or download this
    use Text::CSV_XS qw( csv );

...
        exists $_{$f} or $_{$f} = "--missing--";
        }
    });
  3. or download this
    AB1,MM,NN,XYZ
100,--missing--,200,400
200,300,--missing--,400
300,"",--missing--,