On Dec 17, 2003, at 10:24 AM, drieux wrote:
open(PS, "ps -efA|") or die "unable to open ps command\n:$!"; while (<PS>) { ($uid,$pid,$ppid,$c,$stime,$tty,$time,$cmd) = split; print "$pid -> $cmd\n"; } close(PS);
Tell me not to make my coffee with last night's bong water! if split is splitting on the default blank space,
root $1
1644 $2
1 $3
0 $4
Nov10 $5
? $6
00:00:00 $7
/usr/sbin/httpd2-prefork $8-f /etc/apache2/httpd.conf
what we want is the saner process of
($uid,$pid,$ppid,$c,$stime,$tty,$time,$cmd) = split(/\s+/,$_,8);
eg:
sed 's/^/### /' junk.plx
### #!/usr/bin/perl -w
### use strict;
###
### open(PS, "ps -efAww | grep http|");
### while(<PS>)
### {
### # my ($uid,$pid,$ppid,$c,$stime,$tty,$time,$cmd) = split;
### # print "$pid -> $cmd\n";
### my ($uid,$pid,$ppid,$c,$stime,$tty,$time,$cmd) = split(/\s+/,$_,8);
### print "Better $pid -> $cmd\n";
### print "\t$uid,$pid,$ppid,$c,$stime,$tty,$time,$cmd\n";
###
### }My Apology!
ciao drieux
---
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
