ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Eugene Bodin                         2:5020/400     11 May 2001  07:22:08
 To : All
 Subject : Re: Убрать одинаковые элемент из массива.
 -------------------------------------------------------------------------------- 
 

 Hello Pavel,
 
 Pavel V. Ammosov <Pavel.V.Ammosov@f52.n5020.z2.fidonet.org> wrote:
 
 AA> >Как осуществить сабж? Интересует перловое решение.
 PA> %seen = ();
 PA> @unique = grep {!$seen{$_}++} @list;
 
 А еще можно так (но без сохранения порядка элементов).
 (Получено медитацией над рецептом 4.7 относительно 4.6).
 
 my %hash =();
    @hash{@arr} = ();
    @unique = keys %hash;
 
 Best regards,
             Eugene
 --- ifmail v.2.15dev5
  * Origin: Home (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор