tabdata/td-rename

   1 #!/usr/bin/env perl
   2
   3 =pod
   4
   5 =head1 NAME
   6
   7 td-rename - Rename tabular data columns
   8
   9 =head1 USAGE
  10
  11 td-rename I<OLDNAME> I<NEWNAME> [I<OLDNAME> I<NEWNAME> [I<OLDNAME> I<NEWNAME> [...]]]
  12
  13 =head1 EXAMPLE
  14
  15  conntrack -L | sd '^(\S+)\s+(\S+)\s+(\S+)' 'protoname=$1 protonum=$2 timeout=$3' | kvpairs2td | td-rename _REST FLAGS
  16
  17 =head1 SEE ALSO
  18
  19 Not to confuse with rename.td(1) which renames files, not columns.
  20
  21 =cut
  22
  23 no if ($] >= 5.018), 'warnings' => 'experimental::smartmatch';
  24 do '/usr/lib/tool/perl5/tabdata/common.pl' or die "$@";
  25 use Data::Dumper;
  26
  27 process_header(scalar <STDIN>);
  28
  29 %renames = @ARGV;
  30
  31 RENAME:
  32 for my $oldname (keys %renames)
  33 {
  34         COLUMN:
  35         for my $colidx (0..$#Header)
  36         {
  37                 if($Header[$colidx] eq $oldname)
  38                 {
  39                         my $newname = $renames{$oldname};
  40                         $Header[$colidx] = $newname;
  41                         delete $Header{$oldname};
  42                         $Header{$newname} = $colidx;
  43                         next RENAME;
  44                 }
  45         }
  46 }
  47
  48 print join($FS, @Header).$RS;
  49
  50 print while <STDIN>;