|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrew Alakozow 2:5061/6 09 Nov 2004 11:48:42
To : Alexander Pashchenko
Subject : Re: Отсортировать список
--------------------------------------------------------------------------------
SC>> Чесно говоря, не понял по какому принципу группировка идти должна. По
SC>> последнему символу в каждой строке (H, L и т.д.)? Если да, то 2
SC>> варианта
AP> Как раз наоборот. Hадо сгруппировать по регэкспу, и каждой группе
AP> присвоить свою букву.
use strict;
my @echoes = qw(n5062 hardw linux unix);
my %grp;
my %rex = ( V => qr/^n5062.*/,
H => qr/hardw/,
L => qr/linux|unix/,
);
for my $ech (@echoes) {
for my $let (keys %rex) {
print $let;
push (@{$grp{$let}}, $ech) if $ech =~ $rex{$let};
}
}
use Data::Dumper;
warn Dumper \%grp;
aa29
--- Microsoft Outlook Express 6.00.2720.3000
* Origin: Life In The Dark (2:5061/6)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
