Исходное сообщение
"Анонимный хеш с массивами, не могу вывести массив по ключу" Отправлено chinarulezzz, 06-Окт-14 10:22
вот: #!/usr/bin/perl my $href; {     open my $in, '<', 'dump';     local $/;     $href = eval <$in>;     close $in; } my $numrecs = $#{ $href->{each $href} }; my @names = keys $href; print join '', @{ $href->{'NAME'} }; print @{ $href->{each $href} }; print @{ $href->{$names[1]} }; файл-dump: http://pastebin.com/tLW0W3xr >Как раз и не норм. keys и each возвращают ключи в случайном порядке, и какой из них будет VAL1, можно только гадать. это для примера что только так могу вытаскивать значения из хэша. Но конечно, это не то что мне надо. >Кстати, а что говорит print keys %$hash_ref? 0 P.S. Версия 5.18.1

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> вот: > [code] > #!/usr/bin/perl > my $href; > { > open my $in, '<', 'dump'; > local $/; > $href = eval <$in>; > close $in; > } > my $numrecs = $#{ $href->{each $href} }; > my @names = keys $href; > print join '', @{ $href->{'NAME'} }; > print @{ $href->{each $href} }; > print @{ $href->{$names[1]} }; > [/code] > файл-dump: http://pastebin.com/tLW0W3xr >>Как раз и не норм. keys и each возвращают ключи в случайном порядке, и какой из них будет VAL1, можно только гадать. > это для примера что только так могу вытаскивать значения из хэша. Но > конечно, это не то что мне надо. >>Кстати, а что говорит print keys %$hash_ref? > 0 > P.S. Версия 5.18.1
	Введите код, изображенный на картинке: