tabdata/csv2td

   1 #!/usr/bin/env perl
   2
   3 =pod
   4
   5 =head1 NAME
   6
   7 csv2td - Transform CSV to tabular data format.
   8
   9 =head1 DESCRIPTION
  10
  11 Read CSV data on STDIN.
  12 Output tabular data to STDOUT.
  13
  14 =head1 OPTIONS
  15
  16 Any option which Text::CSV(3pm) takes.
  17 See C<Text::CSV->known_attributes> for extensive list.
  18 Example:
  19
  20   csv2td --sep=';' --blank-is-undef=0 --binary
  21
  22 becomes:
  23
  24   Text::CSV->new({sep=>";", blank_is_undef=>0, binary=>1})
  25
  26 =head1 SEE ALSO
  27
  28 csv2(1), mrkv2td(1)
  29
  30 =cut
  31
  32
  33 use Text::CSV qw/csv/;
  34 use Data::Dumper;
  35 no if ($] >= 5.018), 'warnings' => 'experimental::smartmatch';
  36 do '/usr/lib/tool/perl5/tabdata/common.pl' or die "$@";
  37
  38
  39 %csv_opts = ();
  40
  41 for (@ARGV)
  42 {
  43         if(my ($optname, $value) = /^--([^=]+)(?:=(.*)|)$/)
  44         {
  45                 $value = 1 if not defined $value;
  46                 $optname =~ s/-/_/g;
  47                 $csv_opts{$optname} = $value;
  48         }
  49         else
  50         {
  51                 die "$0: unknown argument: $_\n";
  52         }
  53 }
  54
  55 $Data = csv(in=>\*STDIN, %csv_opts);
  56
  57 for my $row (@$Data)
  58 {
  59         print join($FS, map {escape_tabdata($_)} @$row).$RS;
  60 }