in reply to Re^3: Need some help building a data structure.
in thread Need some help building a data structure.

You sure? :) 
 1 use Data::Dumper;
  2 use feature 'say';
String found where operator expected at - line 2, near "use feature 's
+ay'"
        (Do you need to predeclare use?)
  3
^Z
"use" not allowed in expression at - line 1, near "1 "
syntax error at - line 1, near "1 use Data::Dumper"
"use" not allowed in expression at - line 2, near "2 "
Execution of - aborted due to compilation errors.

[download]

Replies are listed 'Best First'.
Re^5: Need some help building a data structure.
by Anonymous Monk on May 02, 2009 at 08:17 UTC
    Replace eval $code with print $code and we get 
    $hashref->{'globalkey'}->{'key2'}->{'key3'}->{'key4'}='ARRAY VALUE';
$hashref->{'globalkey'}->{'key2'}->{'key3'}->{'key4'}->{'key5'}='ARRAY
+ VALUE';
$hashref->{'globalkey'}->{'key2'}->{'key3'}->{'key4'}->{'key5'}->{'any
+ arbitrary number of keys'}='ARRAY VALUE';

use Data::Dumper;
print Dumper($hashref);
__END__
$VAR1 = {
          'globalkey' => {
                           'key2' => {
                                       'key3' => {
                                                   'key4' => 'ARRAY VA
+LUE'
                                                 }
                                     }
                         }
        };

    [download]
    Add strict/warnings and we get 
    use strict;
use warnings;

my $hashref;
$hashref->{'globalkey'}->{'key2'}->{'key3'}->{'key4'}='ARRAY VALUE';
$hashref->{'globalkey'}->{'key2'}->{'key3'}->{'key4'}->{'key5'}='ARRAY
+ VALUE';
$hashref->{'globalkey'}->{'key2'}->{'key3'}->{'key4'}->{'key5'}->{'any
+ arbitrary number of keys'}='ARRAY VALUE';
__END__
Can't use string ("ARRAY VALUE") as a HASH ref while "strict refs" in 
+use at - line 6.

    [download]
    That explains everything nicely :)
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom