ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Pavel B. Kuznetsov                   2:5020/400     22 Mar 2001  10:01:31
 To : All
 Subject : Re: ХЭШ
 -------------------------------------------------------------------------------- 
 

 Belyakov Sergey wrote:
 
 > Добрый день ALL !!
 >
 > Hазрел вопросец если это фак то сразу не пинайте.
 >
 > my(@speed_range)  = qw(1 14400 28800 33600 40000 43000 45000 50000 65000
 > 115000 300000);
 > my($speed_list);
 > foreach $speed_list (@speed_range) {
 > $speeds{$speed_list} = 0;
 > }
 >
 > undef($speed_list);
 >
 > В результате в хэше получаю все вперемешку (немогу понять из-за чего).
 >
 > 1 0 28800 0 40000 0 50000 0 115000 0 43000 0 14400 0 45000 0 65000 0
 > 33600 0
 >
 > Как сделать что-бы в хэше все было нормально
 > (1 0 14400 0 28800 0 33600 0 ....)
 >
 > Спасибо за ответ.
 
 use Tie::IxHash (ordered associative arrays for Perl)
 
 --- ifmail v.2.15dev5
  * Origin: Communication Company MARK-ITT (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    ХЭШ   Belyakov Sergey   22 Mar 2001 09:47:19   Re: ХЭШ   Pavel B. Kuznetsov   22 Mar 2001 10:01:31   Re: ХЭШ   Vladimir Podgorny   22 Mar 2001 11:35:13   RE:ХЭШ   Victor Pikman   22 Mar 2001 11:41:25   RE:ХЭШ   Ivan Frolcov   23 Mar 2001 12:22:17   Re: ХЭШ   Yuriy Kaminskiy   24 Mar 2001 17:12:51