admin-tools/inodestats

   1 #!/usr/bin/env perl
   2
   3 use Data::Dumper;
   4
   5 $LINES = $ENV{'LINES'} || `tput lines`;
   6
   7 open LSOF, '-|', qw/lsof -n -Fcpi +c0/;
   8 while(<LSOF>)
   9 {
  10     ($a, $b) = (/^(.)(.*)/);
  11     if($a eq "p")
  12     {
  13         $pid=$b;
  14     }
  15     elsif($a eq "i")
  16     {
  17         push @{$T{$pid}->{$a}},$b;
  18     }
  19     else
  20     {
  21         $T{$pid}->{$a} = $b;
  22     }
  23 }
  24 close LSOF;
  25
  26 for $pid (keys %T)
  27 {
  28     $C{$T{$pid}->{'c'}}->{'nproc'}++;
  29     $C{$T{$pid}->{'c'}}->{'inodes'} += scalar @{$T{$pid}->{'i'}};
  30 }
  31
  32 for $c (keys %C)
  33 {
  34     $C{$c}->{'iperp'} = $C{$c}->{'inodes'} / $C{$c}->{'nproc'};
  35 }
  36
  37
  38 $line = 0;
  39 $sortby = $ARGV[0] || "inodes";
  40 for $c (sort { $C{$b}->{$sortby} <=> $C{$a}->{$sortby} } keys %C)
  41 {
  42     printf "%-16s  %4d prc  %5s ino  %7.1f i/p\n", $c, $C{$c}->{'nproc'}, $C{$c}->{'inodes'}, $C{$c}->{'iperp'} ;
  43     $line++;
  44     last if ($LINES and $line >= $LINES - 2);
  45 }