Разное

Подскажите, кто знает.
В скрипте на Perl есть такая строчка:

foreach $userdate (keys(%date)) { print "<tr><td><small>$userdate</td><td align=center><small>$date{$userdate}</td></tr>\n"; }

она выводит в первом столбике таблицы - дату, а во втором (напротив даты) столбике - количество. Дело в том, что дни вставляются вперемешку, а не по порядку:
Дата................................................Количество
Пят. - 10.11.2006 ....................................1
Сре. - 8.11.2006 ......................................1
Пон. - 6.11.2006 ......................................1
Чет. - 9.11.2006 ......................................1
Вто. - 7.11.2006......................................1
Надо, чтобы дни шли друг за другом по порядку, сверху вниз. Например:
Пон. - 6.11.2006....................................1
Вто. - 7.11.2006 .....................................1
Сре. - 8.11.2006.....................................1
Чет. - 9.11.2006......................................1
Пят. - 10.11.2006....................................1
Как исправить положение? Подскажите.

Строку

foreach $userdate (keys(%date))

замените

foreach $userdate (sort keys(%date))

Правда, чтобы сортировка протекала корректно, следует вместо дат в формате "Пят. - 10.11.2006" использовать UNIXSTAMP формат или любой другой, который будет лексикографически сортироваться, а уже при выводе в таблице осуществлять преобразование до нужного вам формата.