Server IP : 85.214.239.14 / Your IP : 18.117.74.47 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /proc/3/root/usr/share/doc/lsof/examples/ |
Upload File : |
#!/usr/bin/perl # # count_pf.pl -- run lsof in repeat mode and count processes and # files sub interrupt { print "\n"; exit 0; } $RPT = 15; # lsof repeat time # Set path to lsof. if (($LSOF = &isexec("../lsof")) eq "") { # Try .. first if (($LSOF = &isexec("lsof")) eq "") { # Then try . and $PATH print "can't execute $LSOF\n"; exit 1 } } # Read lsof -nPF0 output repeatedly from a pipe. $| = 1; # unbuffer output $SIG{'INT'} = 'interrupt'; # catch interrupt $proc = $files = $tcp = $udp = 0; $progress="/"; open(P, "$LSOF -nPF0 -r $RPT|") || die "can't open pipe to $LSOF\n"; LSOF_LINE: while (<P>) { chop; if (/^m/) { # A marker line signals the end of an lsof repetition. printf "%s Processes: %5d, Files: %6d, TCP: %6d, UDP: %6d\r", $progress, $proc, $files, $tcp, $udp; $proc = $files = $tcp = $udp = 0; if ($progress eq "/") { $progress = "\\"; } else { $progress = "/"; } next LSOF_LINE; } if (/^p/) { # Count process. $proc++; next LSOF_LINE; } if (/^f/) { # Count files. $files++; @F = split("\0", $_, 999); foreach $i (0 .. ($#F - 1)) { # Search for protocol field. if ($F[$i] =~ /^P(.*)/) { # Count instances of TCP and UDP protocols. if ($1 eq "TCP") { $tcp++; } elsif ($1 eq "UDP") { $udp++; } next LSOF_LINE; } } } } ## isexec($path) -- is $path executable # # $path = absolute or relative path to file to test for executabiity. # Paths that begin with neither '/' nor '.' that arent't found as # simple references are also tested with the path prefixes of the # PATH environment variable. sub isexec { my ($path) = @_; my ($i, @P, $PATH); $path =~ s/^\s+|\s+$//g; if ($path eq "") { return(""); } if (($path =~ m#^[\/\.]#)) { if (-x $path) { return($path); } return(""); } $PATH = $ENV{PATH}; @P = split(":", $PATH); for ($i = 0; $i <= $#P; $i++) { if (-x "$P[$i]/$path") { return("$P[$i]/$path"); } } return(""); }