ちょっと監視してた

gistfile1.pl

#!/usr/bin/env perl

use strict;
use warnings;

my $name = {};
my @cmd = `last`;
for (reverse @cmd) {
    next if $_ =~ /wtmp|^\s+/;
    my ($user, undef, $from, $w, $m, $d, $t) = split /\s+/;
    my $login_date = "$w $m$d $t";
    $name->{$user}->{User} = $from;
    $name->{$user}->{Count}++;
    $name->{$user}->{Login} = $login_date;
}

foreach  my $usr (sort 
                   { $name->{$b}->{Count} <=> $name->{$a}->{Count}
                 } keys %{ $name }) {
    printf "%-10s", $usr;
    printf "%-10s", $name->{$usr}->{Count};
    printf "%-10s\n", $name->{$usr}->{Login};
}