|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Dmitriy Goldobin 2:5020/400 26 Apr 2000 10:30:06
To : All
Subject : Re: сложная сортировка
--------------------------------------------------------------------------------
Hi!
> тогда сортируй с перекодировкой, что нибудь вроде
> my @sorted = sort {
> my ($a1, $b1) = ($a, $b);
> $a1 =~ tr/из-чего/в-чего/;
> $b1 =~ tr/из-чего/в чего/;
> $a1 cmp $b1} @unsorted;
>
> Криво, конечно, но...
Чисто для сведения - это будет заодно модифицировать исходный
@unsorted
Bye.
--- ifmail v.2.15dev5
* Origin: Electronic Microsystems JSC (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
