On Thursday 10 July 2008 05:59:36 Anirban Adhikary wrote:
> Dear list
> I want to capture the output of w and then I want to do some job as per the
> o/p of w command in my linux system. So i have written the code as follows
>
> use strict;
> use warnings;
>
> open (LS, "w|") or die "can't open w: $!";
> my @arr = <LS>;
> close (LS);
> shift @arr;
> shift @arr;
> my($one,$two,$three,$four,$five,$six,$seven,$eight);
>
> foreach my $el(@arr)
> {
> ($one,$two,$three,$four,$five,$six,$seven,$eight) = split(/ /,$el);
> print $five."\n";
> }
> but the problem is as per the o/p of w command I want to extract the fifth
> field but by using the above code I am not able to do this. The o/p of who
> command in my system is as follows
>
> USER TTY FROM LOGIN@ IDLE JCPU PCPU WHAT
> bighosh pts/1 bighosh.in.conne 13:48 38:03 0.16s 0.06s sshd:
> bighosh [priv]
> nchatter pts/2 nchatterjee.in.c 10:31 15:38 0.68s 0.65s -bash
> anadhika pts/3 anadhikary.in.co 15:10 0.00s 0.04s 0.00s w
> suray pts/4 suray1.in.connec 12:36 46:43 0.04s 0.04s -bash
> merge pts/5 sasarkar.in.conn 12:00 5:44 0.11s 0.11s -bash
> dpghosh pts/6 dpghosh.in.conne 12:09 1:32 0.07s 0.01s sshd:
> dpghosh [priv]
> anadhika pts/7 anadhikary.in.co 13:50 10.00s 0.12s 0.12s -bash
>
> I need to extract the idle column. But using my code I am getting output
> like this
>
>
> pts/4
> pts/5
>
> Where I am making the mistake............ please rectify.....
>
> Thanks & Regards in advance
> Anirban Adhikary
Anirban,
The output of 'w' is delimited by whitespace, not necessarily a single space.
Try passing the pattern '\w+' to split. Something like this:
#!/usr/bin/perl
use strict;
use warnings;
open (LS, "w|") or die "can't open w: $!";
<LS>;
<LS>;
while (<LS>) {
print ((split)[4], "\n");
}
Stephen Kratzer
Network Engineer
CTI Networks, Inc.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
