ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : dimka kuvshinov 2:5020/400 06 Sep 2000 21:29:30
To : Boris Kopylov
Subject : Re: Количество работающих
--------------------------------------------------------------------------------
через tty так сделать можно:
%ttys=();
open (WHO, "who|");
while(){
($user, $tty) = split;
push(@ {$ttys{$user}}, $tty);
}
foreach $user (sort keys %ttys){
print "$user: @{$ttys{$user}}\n"
}
это и учебника по перлу со зверюгой с круглыми рогами..
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
