|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alex Lazarev 2:5052/7.39 26 Apr 2000 16:28:56
To : Dmitriy Goldobin
Subject : Re: сложная сортировка
--------------------------------------------------------------------------------
Wednesday April 26 2028 10:30, you wrote to All:
>> > тогда сортируй с перекодировкой, что нибудь вроде
>> > my @sorted = sort {
>> > my ($a1, $b1) = ($a, $b);
>> > $a1 =~ tr/из-чего/в-чего/;
>> > $b1 =~ tr/из-чего/в чего/;
>> > $a1 cmp $b1} @unsorted;
>> >
>> > Криво, конечно, но...
>>
>> Чисто для сведения - это будет заодно модифицировать исходный
>> @unsorted
да неужели?
с чего бы это?
DG> Да еще и не по одному разу каждый элемент. Так что если наборы
DG> символов имеют пересекающиеся коды, то получится хорошая
DG> криптовалка :)
Если лень посмотреть код внимательней или запустить для проверки, то да :)
(там есть строка my ($a1,$b1) = ($a,$b); )
Alex
--- GoldED/W32 3.0.1
* Origin: Дурак справедлив, но суров (2:5052/7.39)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
