Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Сортировка хеша массивов, Подскажите 
:(
    Опции темы
Suppir
Дата 1.9.2011, 15:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 588
Регистрация: 20.4.2009

Репутация: нет
Всего: нет



Добрый день!

Есть хеш массивов вида:

$hash{Иванов} 5, 6, 10
          {Петров} 17, 1, 1000
          {Кукурузин} 11, 2, 10

Подскажите, как вывести в файл этот хеш с сортировкой фамилий - по алфавиту, а числовых значений - по возрастанию.

Т.е. должно получиться:

Иванов -> 5, 6, 10
Кукурузин -> 1, 17, 1000
Петров -> 1, 17, 1000

Добавлено @ 15:25
p.s. только, пожалуйста, не в виде однострочника!!!  smile 

p.p.s. Perl Data Structures Cookbook читал. Там нет такого примера. 

Это сообщение отредактировал(а) Suppir - 1.9.2011, 15:29
PM MAIL   Вверх
arto
Дата 1.9.2011, 16:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40



однострочник -- самовыражение, остальное -- платная техническая поддежка.
PM MAIL ICQ   Вверх
Suppir
Дата 1.9.2011, 16:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 588
Регистрация: 20.4.2009

Репутация: нет
Всего: нет



arto, давайте однострочник. Как-нибудь попробую разгрести smile
PM MAIL   Вверх
arto
Дата 1.9.2011, 16:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40



# perl -C6 -Mutf8 -le '$hash = { ''Иванов'' => [ 5, 6, 10 ], ''Петров'' => [ 17, 1, 1000 ], ''Кукурузин'' => [ 11, 2, 10 ] }; print join "\n", map { "$_: @{[join'', '',sort{$a<=>$b}@{$hash->{$_}}]}" } sort keys %$hash' 
Иванов: 5, 6, 10
Кукурузин: 2, 10, 11
Петров: 1, 17, 1000

PM MAIL ICQ   Вверх
Suppir
Дата 1.9.2011, 16:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 588
Регистрация: 20.4.2009

Репутация: нет
Всего: нет



Спасибо, буду разбираться!
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0653 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.