Приветствую, народ!
Вопрос таков.
У меня есть массив, в котором лежит несколько значений.

Сам массив (@massiv):

Цитата

1|Автосервис| 2|Ремонт компьютеров| 3|Видеосъемка| 4|Курсы дизайнеров|

и т.д.

Мне его нужно отсортировать по русскому алфавиту, т.е. от А до Я по первым словам.
Подскажите, пожалуйста, как это сделать.

Заранее благодарен, eXp...

Попробуй так:

Код

#!/usr/bin/perl -w use strict; my @massiv = ('1|Автосервис|',               '2|Ремонт компьютеров|',               '3|Видеосъемка|',               '4|Курсы дизайнеров|'); @massiv = sort { sorted( $a, $b ) } @massiv; sub sorted {    my $a = shift;    my $b = shift;    $a =~ s/\d+\|(.+)\|/$1/;    $b =~ s/\d+\|(.+)\|/$1/;    return( $a cmp $b ); # Если нужен обратный порядок, поменяй местами переменные $a и $b } print join("\n", @massiv);

Если, конечно, я тебя правильно понял.

Удачи.

Это сообщение отредактировал(а) korob2001 - 24.6.2004, 22:21

Спасибо. Попробую. А ты мог бы обьяснить sub sorted?

Цитата

А ты мог бы обьяснить sub sorted?

Код

1: sub sorted { 2:    my $a = shift; 3:    my $b = shift; 4:    $a =~ s/\d+\|(.+)\|/$1/; 5:    $b =~ s/\d+\|(.+)\|/$1/; 6:    return( $a cmp $b ); 7: }

Для простоты я пронумеровал строки.

1. Начало подпрограммы sorted
2. Создаём локальную переменную $a и при помощи shift сохраняем в неё первый параметр.
3. Создаём локальную переменную $b и при помощи shift сохраняем в неё второй параметр.
можно было записать строки 2 и 3 в одной строке, вот так: my($a, $b) = @_;
4. Из переменной $a выуживаем то что находится между символами || и заменяем значение переменной. Например переменая $a = '1|Автосервис|', то после этой строки она будет выглядеть примерно так: $a = 'Автосервис'.
5. Тоже, только с переменной $b
6. Сравниваем строки и возвращаем результат.
7. Конец подпрограммы sorted.

Спасибо! Кажется, понятно!