tabdata/td-trans-mount

   1 #!/usr/bin/env perl
   2
   3
   4 =pod
   5
   6 =head1 NAME
   7
   8 td-trans-mount - Transform mount(1) output to tabular data stream.
   9
  10 =head1 DESCRIPTION
  11
  12 Supported mount(1) options which affect output format:
  13
  14 =over 4
  15
  16 =item -l (show labels)
  17
  18 =back
  19
  20 =head1 EXAMPLES
  21
  22 mount | td-trans-mount
  23
  24 mount -l | td-trans-mount
  25
  26 =cut
  27
  28 no if ($] >= 5.018), 'warnings' => 'experimental::smartmatch';
  29 do '/usr/lib/tool/perl5/tabdata/common.pl' or die "$@";
  30
  31 @Headers = ("DEVICE", "MOUNTPOINT", "TYPE", "OPTIONS", "LABEL");
  32 print join($FS, @Headers).$RS;
  33
  34 while(<STDIN>)
  35 {
  36         chomp;
  37
  38         if(/^(?<DEVICE>\S+) on (?<MOUNTPOINT>\S+) type (?<TYPE>\S+) \((?<OPTIONS>.*?)\)(?: \[(?<LABEL>.*?)\]|)$/)
  39         {
  40                 @Fields = map {$+{$_}} @Headers;
  41                 print join($FS, @Fields).$RS;
  42         }
  43         else
  44         {
  45                 die "can not parse: $line\n";
  46         }
  47 }