Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Системное программирование > who

Автор: Гость_Aleksandr 20.2.2005, 00:46

privet,

zadali takoje zadanije: otkrit komandu 'who' Unix-a, i vivesti na ekran kazdij tretij rad rezultata.
Kto-nibud predstavlajet, kak eto realizovat?

Zaranee blagodaren.

Автор: dargaard 20.2.2005, 01:00

@wholist =`who`;
$i=0;
foreach $h (@wholist) {
print "$h\n" if $i eq 2;
$i++;
$i = $i%3;

}

Автор: GoodBoy 21.2.2005, 14:10

dargaard
ничего с этим не напутал:

Цитата(dargaard @ 20.2.2005, 01:00)

$i = $i%3;

Может вот так:

Код

@wholist =`who`;
$i=0;
foreach $h (@wholist) {
    print "$h\n" if $i==2;
    $i++;
    $i = 0 if $i%3==0;
}

Автор: dargaard 23.2.2005, 07:26

$i++;
$i=$i%3;
Выдаст последовательность 0,1,2,0,1,2,0,1,2,....
Так что нет, не напутал:)

Автор: GoodBoy 24.2.2005, 14:05

dargaard
тоже верно... :-)))