home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / share / doc / lsof / examples / count_pf.perl5 < prev    next >
Encoding:
Text File  |  2001-11-12  |  2.0 KB  |  95 lines
  1. #!/usr/local/bin/perl
  2. #
  3. # count_pf.perl5 -- run lsof in repeat mode and count processes and
  4. #            files
  5.  
  6. sub interrupt { print "\n"; exit 0; }
  7.  
  8. $RPT = 15;                # lsof repeat time
  9.  
  10. # Set path to lsof.
  11.  
  12. if (($LSOF = &isexec("../lsof")) eq "") {    # Try .. first
  13.     if (($LSOF = &isexec("lsof")) eq "") {    # Then try . and $PATH
  14.     print "can't execute $LSOF\n"; exit 1
  15.     }
  16. }
  17.  
  18. # Read lsof -nPF0 output repeatedly from a pipe.
  19.  
  20. $| = 1;                    # unbuffer output
  21. $SIG{'INT'} = 'interrupt';        # catch interrupt
  22. $proc = $files = $tcp = $udp = 0;
  23. $progress="/";
  24. open(P, "$LSOF -nPF0 -r $RPT|") || die "can't open pipe to $LSOF\n";
  25.  
  26. LSOF_LINE:
  27.  
  28. while (<P>) {
  29.     chop;
  30.     if (/^m/) {
  31.  
  32.     # A marker line signals the end of an lsof repetition.
  33.  
  34.     printf "%s  Processes: %5d,  Files: %6d,  TCP: %6d, UDP: %6d\r",
  35.         $progress, $proc, $files, $tcp, $udp;
  36.     $proc = $files = $tcp = $udp = 0;
  37.     if ($progress eq "/") { $progress = "\\"; } else { $progress = "/"; }
  38.     next LSOF_LINE;
  39.     }
  40.     if (/^p/) {
  41.  
  42.     # Count process.
  43.  
  44.     $proc++;
  45.     next LSOF_LINE;
  46.     }
  47.     if (/^f/) {
  48.  
  49.     # Count files.
  50.  
  51.     $files++;
  52.     @F = split("\0", $_, 999);
  53.     foreach $i (0 .. ($#F - 1)) {
  54.  
  55.     # Search for protocol field.
  56.  
  57.         if ($F[$i] =~ /^P(.*)/) {
  58.  
  59.         # Count instances of TCP and UDP protocols.
  60.  
  61.         if ($1 eq "TCP") { $tcp++; }
  62.         elsif ($1 eq "UDP") { $udp++; }
  63.         next LSOF_LINE;
  64.         }
  65.     }
  66.     }
  67. }
  68.  
  69.  
  70. ## isexec($path) -- is $path executable
  71. #
  72. # $path   = absolute or relative path to file to test for executabiity.
  73. #        Paths that begin with neither '/' nor '.' that arent't found as
  74. #        simple references are also tested with the path prefixes of the
  75. #        PATH environment variable.  
  76.  
  77. sub
  78. isexec {
  79.     my ($path) = @_;
  80.     my ($i, @P, $PATH);
  81.  
  82.     $path =~ s/^\s+|\s+$//g;
  83.     if ($path eq "") { return(""); }
  84.     if (($path =~ m#^[\/\.]#)) {
  85.     if (-x $path) { return($path); }
  86.     return("");
  87.     }
  88.     $PATH = $ENV{PATH};
  89.     @P = split(":", $PATH);
  90.     for ($i = 0; $i <= $#P; $i++) {
  91.     if (-x "$P[$i]/$path") { return("$P[$i]/$path"); }
  92.     }
  93.     return("");
  94. }
  95.