Help for this page

Select Code to Download


  1. or download this
        use List::Util qw( reduce );

    sub array_to_nested_hash {
        reduce { scalar {$b,$a} } undef, reverse @_;
    }
  2. or download this
        use Data::Dumper;
    $Data::Dumper::Terse  = 1;
...

    print Dumper( array_to_nested_hash(1..5) ), "\n";
    # {'1' => {'2' => {'3' => {'4' => {'5' => undef}}}}}