摘要：ken@ken-PC:~$ whoken tty7 2012-02-09 08:49 (:0)ken pts/0 2012-02-09 16:51 (:0.0)my (%ttys,$user,$tty,$data);for (`who`){ ($user,$tty,$data)= /(\S+)\s+(\S+)\s+(.*)/; $ttys{$user} .= "$tty at $data\n";} 阅读全文

摘要：my @numbers;push @numbers, split while <>; #将文件读入，使用split分割元素（split默认使用空白字符分割）后加入数组for (sort {$a<=>$b} @numbers){ #遍历数组中的元素，排序后输出（$a和$b是默认的包全局变量） printf "%20g\n",$_;} 阅读全文