Помогите, плз! Сортировка хеша. Разные результаты в консоли и в web...
Куски и скрипта:
use strict;
use locale;
use POSIX qw (locale_h);
setlocale(LC_CTYPE, \'ru_RU.KOI8-R\');
sub view_tree {
my ($root) = @_;
foreach my $attr (sort keys %$root) {
if (ref($root->{$attr}) ne \'HASH\') {
print "$attr: $root->{$attr}\\n";
} else {
view_tree($root->{$attr});
}
}
}
# Создаем дерево
....
# Выводим дерево
&view_tree($my_root);
Локаль KOI8-R.
В консоли все супер.
Но в выводе в web хаотичный вывод. Как бы дерево, но без сортировки.
Почему выводы отличаются? Где копать?
Спасибо огромное заранее!