tabdata/td-keepheader

   1 #!/usr/bin/env perl
   2
   3 =pod
   4
   5 =head1 NAME
   6
   7 td-keepheader - Plug a non header-aware program in the tabular-data processing pipeline
   8
   9 =head1 USAGE
  10
  11 td-keepheader [--] <COMMAND> [<ARGS>]
  12
  13 =head1 EXAMPLE
  14
  15 ls -l | td-trans-ls | td-select NAME +REST | td-keepheader sort | tabularize
  16
  17 =cut
  18
  19 no if ($] >= 5.018), 'warnings' => 'experimental::smartmatch';
  20 do '/usr/lib/tool/perl5/tabdata/common.pl' or die "$@";
  21
  22 die "$0: no COMMAND given\n" unless @ARGV;
  23
  24 $header = sys_read_line();
  25
  26 $|++;
  27 print $header . $RS;
  28
  29 exec {$ARGV[0]} @ARGV;
  30 ($errno, $errstr) = (int $!, $!);
  31 warn "$ARGV[0]: $errstr\n";
  32 exit 125+$errno;