|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexandr Boydak 2:5025/2.62 23 Jun 2003 15:14:35
To : ‚« ¤Ё¬Ёp ѓpҐЎҐў
Subject : Еще два вопроса
--------------------------------------------------------------------------------
22 июня 2031 23:42, you wrote to All:
ВГ> Как можно удалить из массива @links повтоpяющиеся стpоки, а также как
ВГ> из html сделать txt?
Hа выбор. Perl Cookbook, рецепт 4.6. Рекомендую купить эту книгу и сделать
настольной. В русском издании:
Т.Кристиансен, H.Торгкинтон. PERL. Библиотека программиста. Издательства
O'Reilly, Питер.
Так же настольной книгой следует иметь:
Стивен Холзнер. PERL. Специальный справочник. Издательства Coriolis, Питер.
Если не найдешь в магазине, закажи на Болеро, Озоне или еще где-нибудь через
интернет.
=== Cut ===
-+--------------------------
%seen = ();
@uniq = ();
foreach $item (@list) {
unless ($seen{$item})
# if we get here, we have not seen it before
$seen{$item} = 1;
push(@uniq, $item);
}
}
-+------------------------
%seen = ();
foreach $item (@list) {
push(@uniq, $item) unless $seen{$item}++;
}
-+------------------------
%seen = ();
foreach $item (@list) {
$seen{$item}++;
}
@uniq = keys %seen;
-+------------------------
%seen = ();
@unique = grep { ! $seen{$_} ++ } @list;
=== Cut ===
Alexandr
--- GoldED/W32 3.0.1
* Origin: (2:5025/2.62)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
