perl function for 'ps' ?

js1 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: perl function for 'ps' ? by gellyfish (Monsignor) on Aug 14, 2006 at 10:51 UTC
Proc::ProcessTable seems to be fairly cross platform. For your future reference you might find http://search.cpan.org useful. /J\	[reply]
Re: perl function for 'ps' ? by davorg (Chancellor) on Aug 14, 2006 at 10:51 UTC
Perhaps you're looking for Proc::ProcessTable. -- <http://dave.org.uk> "The first rule of Perl club is you do not talk about Perl club." -- Chip Salzenberg	[reply]
Re^2: perl function for 'ps' ? by js1 (Monk) on Aug 14, 2006 at 10:55 UTC
Thanks for your reply. I do know of cpan. I was actually looking for a way to do this without having to install a module. I can't install this on all the boxes I'm auditing.	[reply]
Re^3: perl function for 'ps' ? by andyford (Curate) on Aug 14, 2006 at 11:22 UTC
If you can get logged in and run perl or ps, then you might very well be able to install a module in your $HOME directory and use the module from there. You have more power than you might think! Check out this node.	[reply]
Re^4: perl function for 'ps' ? by js1 (Monk) on Aug 14, 2006 at 12:29 UTC
Re^5: perl function for 'ps' ? by gellyfish (Monsignor) on Aug 14, 2006 at 12:34 UTC
Re: perl function for 'ps' ? by derby (Abbot) on Aug 14, 2006 at 12:42 UTC
on Solaris, it truncates the command arguments to the first 80 bytes Well ... you could always just recognize you're on solaris and use /usr/ucb/ps -auxw instead of /bin/ps -ef -derby	[reply]
Re^2: perl function for 'ps' ? by Moron (Curate) on Aug 14, 2006 at 14:06 UTC
And could use 'uname' to check the OS, for example: my $os = `uname`; chop $os; my $cmd = ( $os eq 'SunOS' ) ? '/usr/ucb -auxw' : '/bin/ps -ef'; my @psout = split /\n/, `$cmd`; my @hdr = split /\s+/, shift ( @psout ); my @aoh = (); while (1) { # load ps output into above array of hash... my $fldno = 0; my $tmp = {}; my @fld = ( split /\s+/,( shift( @psout ) \|\| last )); $tmp -> { $hdr [ $fldno++ ] } = shift @fld for @hdr; $tmp -> { COMMAND } .= join ' ', @fld; push @aoh, $tmp; } [download] -M Free your mind	[reply] [d/l]
Re^3: perl function for 'ps' ? by nimdokk (Vicar) on Aug 14, 2006 at 14:29 UTC
And yet another Perl-ish way to check the OS is to look at $^O (or if you use English, you can check it as $OSNAME). For instance something like the following would work: `use English; BEGIN { if ( $OSNAME =~ /MSWin32/i) { #do some stuff for Windows } elsif ( $OSNAME =~ /solaris/i) { #do some stuff for solaris }# }#end BEGIN` [download] You could put in whatever the various OSes are that you would need.	[reply] [d/l]
Re^3: perl function for 'ps' ? by gellyfish (Monsignor) on Aug 14, 2006 at 14:26 UTC
I'm not sure there is any advantage in this case in using `uname` over `$^O` here, `$^O` does however contain "solaris" rather than "SunOS" on the Solaris machine I have to test with. /J\	[reply] [d/l] [select]
A reply falls below the community's threshold of quality. You may see it by logging in.
Re: perl function for 'ps' ? by Khen1950fx (Canon) on Aug 14, 2006 at 11:58 UTC
CPAN has a scripts section for Unix System Administration. There's a couple of scripts there that might help you. There's a script for ps called p-1.0. For auditing, there's a script that will help that's called sperl-1.00. Scripts Category UNIX: System_administration p-1.0 sperl-1.00	[reply]
Re: perl function for 'ps' ? by planetscape (Chancellor) on Aug 15, 2006 at 20:29 UTC
The following nodes may also help: Determining memory usage of a process... How can I see/manage the process list on Win32? How do i obtain the PID of a program already running. How do I prevent the command/parameters in a system call from displaying in ps HTH, planetscape	[reply]