|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrey Sapozhnikov 2:5020/400 01 Apr 2002 17:12:04
To : Artem Chuprina
Subject : Re: списки
--------------------------------------------------------------------------------
Artem Chuprina wrote:
> Выделить слово (слова, вообще говоря):
>
> @aok = grep(/$stroka/,@list);
>
> Выделить все, кроме:
>
> @ano = grep(!/$stroka/,@list);
Или "два в одном" чтоб не прикладывать re дважды:
push((/$stroka/ ? @aok : @ano), $_) foreach @list;
Хотя не факт, что последний вариант будет быстрее.
Андрей
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
