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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> hash сортировка 
:(
    Опции темы
shuttle
Дата 13.7.2011, 20:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



работаю с использованием ООП вот конструктор 
Код

sub new
{
    my $class=shift;
    return bless({},$class);
}


заношу туда значения 
Код

$self->{StartTime}{$CallStartTime}{count}=$count;
$self->{EndTime}{$TimeCallEnded}{count}=$count;


$CallStartTime и $TimeCallEnded - количество секунд с 1970, т.е. число 

нужно вывести значения сортированные по дате
Код

foreach( sort {$self->{StartTime}{$a} <=> $self->{StartTime}{$b}} keys %{$self->{StartTime}} ){
                my $StartTime=$_;
        my $CurrentRecord =  $self->{StartTime}{$StartTime}{count};
        print "$StartTime = $CurrentRecord\n";
}


вывод не отсортирован - в чем ошибся
--------------------
PM MAIL   Вверх
arto
Дата 13.7.2011, 20:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



{ $a <=> $b }
PM MAIL ICQ   Вверх
shuttle
Дата 14.7.2011, 19:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



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


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

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


 




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


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

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