Help for this page

Select Code to Download


  1. or download this
    my $foo = { };
$foo->{a}->{b}->{c}->{d} = 1;
use Data::Dumper;
print Data::Dumper->Dump([$foo],['foo']);
  2. or download this
    $foo = {
         'a' => {
                  'b' => {
...
                         }
                }
       };
  3. or download this
    print %{$foo->{a}->{d}}
  4. or download this
    my $bar = $foo->{a}->{d};
print %$bar if $bar;