As an alternative to parsing the output of the external command you might consider using Sys::Utmp:

use Sys::Utmp;
                                                                      
+          
my $utmp = Sys::Utmp->new();
                                                                      
+          
my %users;
                                                                      
+          
while ( my $utent =  $utmp->getutent() )
{
   if ( $utent->user_process )
   {
      $users{$utent->ut_user}++;
   }
}
                                                                      
+          
$utmp->endutent;
                                                                      
+          
foreach my $user (keys %users)
{
   printf "%s is logged in %d times\n", $user, $users{$user};
}
[download]

/J\

You are a saint among monks. Thank you.

my $str = `who`;
[download]

To get a hash of it, you'd have to split the string on newlines, then split each line:

foreach my $line (split /\n/,$str) {
    my ($user, $remainder) = split /\s/,$_,2;
    $hash{$user}++;  # just increment the value
}
[download]

But you could also use open to read from who:

open(PIPE,"who |") or die "Can't run 'who': $!\n";
while(<PIPE>) {
    my ($user, $remainder) = split;  # implicit split splits $_ on /\s
++/
    $hash{$user}++;
[download]

Now you have a populated hash.

# sort by user
foreach my $user(sort keys %hash) {
    print "$user logged in $hash{$user} times.\n";
}
# sort by times users are logged in
foreach my $user(sort {$hash{$a} <=> $hash{$b}} keys %hash) {
    print "$user logged in $hash{$user} times.\n";
}
[download]

--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

#!/usr/bin/perl

use warnings;
use strict;

my $who = `who -q`;

if ($who =~ /(.+)\n# users/) {
    $who = $1;
}

my @who = split / /,$who;

my %who;
foreach $_ (@who) {
    $who{$_}++;
}

foreach $_ (keys(%who)) {
    print $_, ' is logged ', $who{$_}, " times\n";
}
[download]

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]

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

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]

Fore.

perl -le'$x{(split)[0]}++for(`who`);print"$k => $v"while($k,$v)=each%x
+'
[download]

Or

who|perl -lane'$x{$F[0]}++;END{print"$k => $v"while($k,$v)=each%x}'
[download]

who|perl -nle '/ /,$x{$`}++}{print"@l"while@l=each%x'

:-)

who|perl -nle'/ /,$;{$`}++}{print"@l"while@l=each%'

who|perl -ne'/ /,$;{$`}++}{print$_,$/^="*"for%'