On Friday, May 31, 2002, at 07:20 , Sudarsan Raghavan wrote:
[..]
>
> Can the OP confirm if it works fine
>
> I cut-pasted the input from original mail. Can you attach the file that
> you are
> using as input so that I can test it here.
http://www.wetware.com/drieux/pbl/Sys/Admin/prstatFilter.t
drieux wrote:
> On Friday, May 31, 2002, at 02:13 , Sudarsan Raghavan wrote:
>
> > while () {
> > chomp;
> > s/^\s+//;
> > next if ((1 .. /^NPROC/) || m/^$/);
> ># The conditions have been swapped here
> ># Explanation for this is one of my earlier mails
>
On Friday, May 31, 2002, at 02:13 , Sudarsan Raghavan wrote:
> while () {
> chomp;
> s/^\s+//;
> next if ((1 .. /^NPROC/) || m/^$/);
># The conditions have been swapped here
># Explanation for this is one of my earlier mails
> unless (/^Total/) {
>
"CATHY GEAR (TRUST HQ)" wrote:
> Yes please post the final working solution! This is always helpful.
>
> Thanks
>
> Cathy
>
The best solution was John's offer
while () {
if ((/NPROC/ .. /^Total/) && /\d/) {
my ($user, $mem, $cpu) = (split)[1, 4, 6];
print
Yes please post the final working solution! This is always helpful.
Thanks
Cathy
-Original Message-
From: Sudarsan Raghavan [mailto:[EMAIL PROTECTED]]
Sent: 31 May 2002 09:01
To: Kipp, James
Cc: Perl
Subject: Re: Help with parsing output
**
