ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrew Alakozow 2:5061/6 23 Nov 2004 11:53:22
To : Alexander Pashchenko
Subject : Re: Отсортировать список
--------------------------------------------------------------------------------
AP> for my $ech (@echoes) {
AP> for my $let (keys %rex) {
AP> if ($ech =~ $rex{$let}){
AP> push (@{$grp{$let}}, $ech);
AP> $ech=undef;
AP> }
AP> }
AP> }
@{$grp{O}} = grep { defined } @echoes;
aa29
--- Microsoft Outlook Express 6.00.2720.3000
* Origin: Life In The Dark (2:5061/6)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
