client/meter/df

   1 #!/usr/bin/env perl
   2
   3 require "common.pl";
   4
   5 @exclude_fstypes = (qw/devtmpfs fuse.encfs/);
   6
   7 open $fh, '-|', qw/df --local --block-size=1 --output=itotal,iused,size,used,fstype,target/ or die "$0: $!\n";
   8 <$fh>;  # consume header
   9 while(<$fh>)
  10 {
  11         chomp;
  12         s/^\s*//;
  13         my($itotal, $iused, $size, $used, $fstype, $target) = split /\s+/, $_, 6;
  14         if(grep {$fstype eq $_} @exclude_fstypes) { next; }
  15
  16         $DF{$target}->{'inodes'}->{'total'} = $itotal;
  17         $DF{$target}->{'inodes'}->{'used'} = $iused;
  18         $DF{$target}->{'bytes'}->{'total'} = $size;
  19         $DF{$target}->{'bytes'}->{'used'} = $used;
  20 }
  21
  22 svlhk_dump(\%DF);