VPF::who - Форум программистов

Гость_Aleksandr

Дата 20.2.2005, 00:46 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Экс. модератор
Сообщений: 450
Регистрация: 7.5.2004

Репутация: нет
Всего: 25

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

}

--------------------

Ты должна сделать добро из зла
потому что его больше не из чего
сделать. Р.П.Уоррен

GoodBoy

Дата 21.2.2005, 14:10 (ссылка)

(нет голосов)

Загрузка ...

Главный джедай

Профиль
Группа: Модератор
Сообщений: 3886
Регистрация: 8.1.2003
Где: КМВ

Репутация: нет
Всего: 83

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;
}

--------------------

Чем дальше в лес, тем толще партизаны...

Цитата(igorold @ 1.5.2016, 17:40

)

Индейцы не обратили внимания на поток беженцев из Европы… Теперь они живут в резервациях.

dargaard

Дата 23.2.2005, 07:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Экс. модератор
Сообщений: 450
Регистрация: 7.5.2004

Репутация: нет
Всего: 25

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

--------------------

Ты должна сделать добро из зла
потому что его больше не из чего
сделать. Р.П.Уоррен

GoodBoy

Дата 24.2.2005, 14:05 (ссылка)

(нет голосов)

Загрузка ...

Главный джедай

Профиль
Группа: Модератор
Сообщений: 3886
Регистрация: 8.1.2003
Где: КМВ

Репутация: нет
Всего: 83

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

--------------------

Чем дальше в лес, тем толще партизаны...

Цитата(igorold @ 1.5.2016, 17:40

)

Индейцы не обратили внимания на поток беженцев из Европы… Теперь они живут в резервациях.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »