Re: parsing output of UNIX `who` command

Given that backticks in list context return a list of lines, and each line starts with the username (which you want to use as a key), I'd do something like:

my %who;
foreach my $user (`who`) {
    $user =~ /^(\S+)/ or next;
    $who{$1}++;
}
while (my($user, $count) = each(%who)) {
    print "$user is logged in $count time";
    print $count == 1 ? ".\n" : "s.\n";
}
[download]

who -q just gives the total number of users logged in on my system, so that's not very useful for counting how often each user is logged in.

Comment on Re: parsing output of UNIX `who` command Download Code

Replies are listed 'Best First'.
Re^2: parsing output of UNIX `who` command by johngg (Canon) on Oct 02, 2006 at 10:13 UTC
On Solaris `who -q` gives one or more lines of space-separated user names followed by a summary line giving total no. of users. I wonder what o/s chinamox is using. Cheers, JohnGG	[reply] [d/l]
Re^3: parsing output of UNIX `who` command by Anonymous Monk on Oct 02, 2006 at 12:11 UTC
Not on my Solaris. `$ uname -a SunOS mybox 5.8 Generic_108528-15 sun4u sparc SUNW,UltraAX-i2 $ /usr/bin/who -q anomonk root # users=2 $` [download]	[reply] [d/l]
Re^4: parsing output of UNIX `who` command by johngg (Canon) on Oct 02, 2006 at 13:21 UTC
Er ... yes. `$ /usr/bin/who -q # You run 'who -q' and get ... anomonk root # One or more lines of space-separated user names # users=2 # Followed by a summary line $ # And back to the prompt` [download] If there are lots of users on a system, `who -q` will output multiple lines of users rather than wrapping one long line. It looks like it assumes a terminal width of 80. Cheers, JohnGG	[reply] [d/l] [select]