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 F. A. Q.
  27
  28 Why there is no td2csv?
  29
  30 Why would you go back to ugly CSV when you have nice shiny Tabdata?
  31
  32 =head1 SEE ALSO
  33
  34 csv2(1), mrkv2td(1)
  35
  36 =cut
  37
  38
  39 use Text::CSV qw/csv/;
  40 use Data::Dumper;
  41 no if ($] >= 5.018), 'warnings' => 'experimental::smartmatch';
  42 do '/usr/lib/tool/perl5/tabdata/common.pl' or die "$@";
  43
  44
  45 %csv_opts = ();
  46
  47 for (@ARGV)
  48 {
  49         if(my ($optname, $value) = /^--([^=]+)(?:=(.*)|)$/)
  50         {
  51                 $value = 1 if not defined $value;
  52                 $optname =~ s/-/_/g;
  53                 $csv_opts{$optname} = $value;
  54         }
  55         else
  56         {
  57                 die "$0: unknown argument: $_\n";
  58         }
  59 }
  60
  61 $Data = csv(in=>\*STDIN, %csv_opts);
  62
  63 for my $row (@$Data)
  64 {
  65         print join($FS, map {escape_tabdata($_)} @$row).$RS;
  66 }