client/meter/locks

   1 #!/usr/bin/env perl
   2
   3 require "common.pl";
   4
   5 $Locks = {};
   6
   7 open $fh, '<', "/proc/locks";
   8 while(<$fh>)
   9 {
  10         my $status = s/^(\S+:)\s*->/$1/ ? 'blocked' : 'held';
  11         my ($n, $sys, $lock_type, $oper, $pid, $devmaj, $devmin, $inode, $begin, $end) = split /[\s:]+/;
  12         $Locks->{lc $sys}{lc $lock_type}{lc $oper}{$status}++;
  13 }
  14
  15 svlhk_dump($Locks, []);