Vi Veri Veniversum Vivus Vici
It can be an error in Perl 5.10, but following code will works properly in 5.14+:

  1. #!/usr/bin/perl -w
  2.  
  3. use strict;
  4. use warnings;
  5. use Data::Dumper;
  6.  
  7.  
  8. my $h = {};
  9.  
  10. $h->{'d'} = {};
  11. $h->{'d'}{'t1'} = 'a';
  12. $h->{'d'}{'t2'} = 'b';
  13.  
  14. my $hh = $h->{'d'};
  15.  
  16. for my $k (keys $hh) {
  17.   my $v = $hh->{$k};
  18.   print "$k = $v\n";
  19. }


Just use "%" symbol before accessing to hash:

  1. #!/usr/bin/perl -w
  2.  
  3. use strict;
  4. use warnings;
  5. use Data::Dumper;
  6.  
  7.  
  8. my $h = {};
  9.  
  10. $h->{'d'} = {};
  11. $h->{'d'}{'t1'} = 'a';
  12. $h->{'d'}{'t2'} = 'b';
  13.  
  14. my $hh = $h->{'d'};
  15.  
  16. for my $k (keys %$hh) {
  17.   my $v = $hh->{$k};
  18.   print "$k = $v\n";
  19. }


And it will work on both versions of Perl:


$ perl test_hashes.pl 
t1 = a
t2 = b
$ perl -v

This is perl 5, version 18, subversion 2 (v5.18.2) built for x86_64-linux-gnu-thread-multi
(with 41 registered patches, see perl -V for more detail)

$ perl test_hashes.pl 
t2 = b
t1 = a
$ perl -v

This is perl, v5.10.1 (*) built for x86_64-linux-thread-multi



@темы: Perl