利用正则匹配内容直接赋值
ken@ken-PC:~$ who
ken 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";
}
赞赏
长按二维码向我转账
受苹果公司新规定影响,微信 iOS 版的赞赏功能被关闭,可通过二维码转账支持公众号。
已发送
发送中
微信扫一扫关注该公众号