diff options
Diffstat (limited to 'scripts/list_NULf.perl5')
-rwxr-xr-x | scripts/list_NULf.perl5 | 161 |
1 files changed, 161 insertions, 0 deletions
diff --git a/scripts/list_NULf.perl5 b/scripts/list_NULf.perl5 new file mode 100755 index 0000000..a9cdbed --- /dev/null +++ b/scripts/list_NULf.perl5 @@ -0,0 +1,161 @@ +#!/usr/local/bin/perl +# +# $Id: list_NULf.perl5,v 1.5 2000/07/14 17:03:37 abe Exp $ +# +# list_NULf.perl5 -- sample Perl 5 script to list lsof NUL-terminated +# full field output (i.e., -F0 output) +# +# This script has been tested under perl version 5.001e. +# +# Copyright 1994 Purdue Research Foundation, West Lafayette, Indiana +# 47907. All rights reserved. +# +# Written by Victor A. Abell +# +# This software is not subject to any license of the American Telephone +# and Telegraph Company or the Regents of the University of California. +# +# Permission is granted to anyone to use this software for any purpose on +# any computer system, and to alter it and redistribute it freely, subject +# to the following restrictions: +# +# 1. Neither the authors nor Purdue University are responsible for any +# consequences of the use of this software. +# +# 2. The origin of this software must not be misrepresented, either by +# explicit claim or by omission. Credit to the authors and Purdue +# University must appear in documentation and sources. +# +# 3. Altered versions must be plainly marked as such, and must not be +# misrepresented as being the original software. +# +# 4. This notice may not be removed or altered. + +# Initialize variables. + +$fhdr = 0; # fd hdr. flag +$fdst = 0; # fd state +$access = $devch = $devn = $fd = $inode = $lock = $name = ""; # | file descr. +$offset = $proto = $size = $state = $stream = $type = ""; # | variables +$pidst = 0; # process state +$cmd = $login = $pgrp = $pid = $ppid = $uid = ""; # process var. + +# Process the ``lsof -F'' output a line at a time, gathering +# the variables for a process together before printing them; +# then gathering the variables for each file descriptor +# together before printing them. + +while (<>) { + chop; + @F = split('\0', $_, 999); + if ($F[0] =~ /^p/) { + +# A process set begins with a PID field whose ID character is `p'. + + if ($pidst) { &list_proc } + if ($fdst) { &list_fd; $fdst = 0; } + foreach $i (0 .. ($#F - 1)) { + + PROC: { + if ($F[$i] =~ /^c(.*)/) { $cmd = $1; last PROC } + if ($F[$i] =~ /^g(.*)/) { $pgrp = $1; last PROC } + if ($F[$i] =~ /^p(.*)/) { $pid = $1; last PROC } + if ($F[$i] =~ /^u(.*)/) { $uid = $1; last PROC } + if ($F[$i] =~ /^L(.*)/) { $login = $1; last PROC } + if ($F[$i] =~ /^R(.*)/) { $ppid = $1; last PROC } + print "ERROR: unrecognized process field: \"$F[$i]\"\n"; + } + } + $pidst = 1; + next; + } + +# A file descriptor set begins with a file descriptor field whose ID +# character is `f'. + + if ($F[0] =~ /^f/) { + if ($pidst) { &list_proc } + if ($fdst) { &list_fd } + foreach $i (0 .. ($#F - 1)) { + + FD: { + if ($F[$i] =~ /^a(.*)/) { $access = $1; last FD; } + if ($F[$i] =~ /^C(.*)/) { last FD; } + if ($F[$i] =~ /^f(.*)/) { $fd = $1; last FD; } + if ($F[$i] =~ /^F(.*)/) { last FD; } + if ($F[$i] =~ /^d(.*)/) { $devch = $1; last FD; } + if ($F[$i] =~ /^D(.*)/) { $devn = $1; last FD; } + if ($F[$i] =~ /^G(.*)/) { last FD; } + if ($F[$i] =~ /^i(.*)/) { $inode = $1; last FD; } + if ($F[$i] =~ /^k(.*)/) { last FD; } + if ($F[$i] =~ /^l(.*)/) { $lock = $1; last FD; } + if ($F[$i] =~ /^N(.*)/) { last FD; } + if ($F[$i] =~ /^o(.*)/) { $offset = $1; last FD; } + if ($F[$i] =~ /^P(.*)/) { $proto = $1; last FD; } + if ($F[$i] =~ /^s(.*)/) { $size = $1; last FD; } + if ($F[$i] =~ /^S(.*)/) { $stream = $1; last FD; } + if ($F[$i] =~ /^t(.*)/) { $type = $1; last FD; } + if ($F[$i] =~ /^T(.*)/) { + if ($state eq "") { $state = "(" . $1; } + else { $state = $state . " " . $1; } + last FD; + } + if ($F[$i] =~ /^n(.*)/) { $name = $1; last FD; } + print "ERROR: unrecognized file set field: \"$F[$i]\"\n"; + } + } + $fdst = 1; + next; + } + print "ERROR: unrecognized: \"$_\"\n"; +} + +# Flush any stored file or process output. + +if ($fdst) { &list_fd } +if ($pidst) { &list_proc } +exit(0); + + +## list_fd -- list file descriptor information +# Values are stored inelegantly in global variables. + +sub list_fd { + if ( ! $fhdr) { + + # Print header once. + + print " FD TYPE DEVICE SIZE/OFF INODE NAME\n"; + $fhdr = 1; + } + printf " %4s%1.1s%1.1s %4.4s", $fd, $access, $lock, $type; + $tmp = $devn; if ($devch ne "") { $tmp = $devch } + printf " %10.10s", $tmp; + $tmp = $size; if ($offset ne "") { $tmp = $offset } + printf " %10.10s", $tmp; + $tmp = $inode; if ($proto ne "") { $tmp = $proto } + printf " %10.10s", $tmp; + $tmp = $stream; if ($name ne "") { $tmp = $name } + print " ", $tmp; + if ($state ne "") { printf " %s)\n", $state; } else { print "\n"; } + +# Clear variables. + + $access = $devch = $devn = $fd = $inode = $lock = ""; + $name = $offset = $proto = $size = $state = $stream = $type = ""; +} + + +# list_proc -- list process information +# Values are stored inelegantly in global variables. + +sub list_proc { + print "COMMAND PID PGRP PPID USER\n"; + $tmp = $uid; if ($login ne "") {$tmp = $login } + printf "%-9.9s %6d %6d %6d %s\n", $cmd, $pid, $pgrp, $ppid, $tmp; + +# Clear variables. + + $cmd = $login = $pgrp = $pid = $uid = ""; + $fhdr = $pidst = 0; +} |