tabdata/td-trans-ls

   1 #!/usr/bin/env perl
   2
   3 =pod
   4
   5 =head1 NAME
   6
   7 td-trans-ls - Transform ls(1) output into fix number of TAB-delimited columns.
   8
   9 =head1 USAGE
  10
  11 ls -l | td-trans-ls
  12
  13 =head1 DETAILS
  14
  15 Supported ls(1) options which affect its output format:
  16
  17 =over 4
  18
  19 =item --human-readable
  20
  21 =item --inode
  22
  23 =item --recursive
  24
  25 =item --time-style={iso,long-iso,full-iso}
  26
  27 =back
  28
  29 Unsupported options:
  30
  31 =over 4
  32
  33 =item --author
  34
  35 =item -g
  36
  37 =item -o
  38
  39 =item --time-style=locale
  40
  41 =back
  42
  43 =cut
  44
  45 no if ($] >= 5.018), 'warnings' => 'experimental::smartmatch';
  46 do '/usr/lib/tool/perl5/tabdata/common.pl' or die "$@";
  47
  48 $recursive_mode = 0;
  49 $first_line = <STDIN>;
  50 if($first_line !~ /^\S+ \d+$/)
  51 {
  52         $recursive_mode = 1;
  53         $first_line =~ /^(.+):$/;
  54         $current_directory = $1;
  55         # skip the "total 123" line
  56         <STDIN>;
  57 }
  58
  59 @Headers = qw/INODE MODE LINKS OWNER GROUP SIZE MAJOR MINOR DATETIME NAME SYMLINKTARGET/;
  60 push @Headers, 'DIRECTORY' if $recursive_mode;
  61
  62 print join($FS, @Headers).$/;
  63
  64 $mode_links_owner_group = qr/(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/;
  65
  66 # update supported --time-style options in the documentation
  67 $datetime = qr/((?:\d\d\d\d-)?\d\d-\d\d \d\d:\d\d(?::\d\d(?:\.\d+)? [\d+-]+)?)/;
  68
  69 sub parse_error
  70 {
  71         die "can not parse: $_[0]\n";
  72 }
  73
  74 while(<STDIN>)
  75 {
  76         my @Fields;
  77         my $inode;
  78
  79         if($recursive_mode)
  80         {
  81                 if(/^$/)
  82                 {
  83                         $_ = <STDIN>;
  84                         /^(.+):$/ or die "a directory introduction expected, not this: $_\n";
  85                         $current_directory = $1;
  86                         # skip the next "total 123" line
  87                         <STDIN>;
  88                         next;
  89                 }
  90         }
  91
  92         if(s/^(\d+)\s+//)
  93         {
  94                 $inode = $1;
  95         }
  96
  97         if(/^[cb]/)
  98         {
  99                 @Fields = /^$mode_links_owner_group\s+()([^,]+),\s*(\S+)\s+$datetime\s+(.+)()$/ or parse_error $_;
 100         }
 101         elsif(/^l/)
 102         {
 103                 @Fields = /^$mode_links_owner_group\s+(\S+)()()\s+$datetime\s+(.+?) -> (.+)$/ or parse_error $_;
 104         }
 105         else
 106         {
 107                 @Fields = /^$mode_links_owner_group\s+(\S+)()()\s+$datetime\s+(.+)()$/ or parse_error $_;
 108         }
 109
 110         unshift @Fields, $inode;
 111         push @Fields, $current_directory if $recursive_mode;
 112
 113         print join($FS, @Fields).$RS;
 114 }