hash
时间：2006-07-18 来源：vio
%ttys = ( );
open(WHO, "who|") or die "can't open who: $!";
while (<WHO>) {
($user, $tty) = split;
push( @{$ttys{$user}}, $tty );
}
foreach $user (sort keys %ttys) {
print "$user: @{$ttys{$user}}\n";
} link: http://bbs.chinaunix.net/viewthread.php?tid=793751&pid=5488900&page=1&extra=page%3D1
open(WHO, "who|") or die "can't open who: $!";
while (<WHO>) {
($user, $tty) = split;
push( @{$ttys{$user}}, $tty );
}
foreach $user (sort keys %ttys) {
print "$user: @{$ttys{$user}}\n";
} link: http://bbs.chinaunix.net/viewthread.php?tid=793751&pid=5488900&page=1&extra=page%3D1
相关阅读 更多 +
