Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: parsing output of UNIX `who` command

by shmem (Chancellor)
on Oct 02, 2006 at 08:12 UTC ( [id://575845]=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my $str = `who`;
    
  2. or download this
    foreach my $line (split /\n/,$str) {
        my ($user, $remainder) = split /\s/,$_,2;
        $hash{$user}++;  # just increment the value
    }
    
  3. or download this
    open(PIPE,"who |") or die "Can't run 'who': $!\n";
    while(<PIPE>) {
        my ($user, $remainder) = split;  # implicit split splits $_ on /\s
    ++/
        $hash{$user}++;
    
  4. or download this
    # sort by user
    foreach my $user(sort keys %hash) {
    ...
    foreach my $user(sort {$hash{$a} <=> $hash{$b}} keys %hash) {
        print "$user logged in $hash{$user} times.\n";
    }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://575845]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others musing on the Monastery: (4)
As of 2024-03-28 23:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found