use Perl

• make use of the indices of the $tiers (Score:1)

  by danboo (2604)

  The only real innovation is using only one hash, and using the tier indices to avoid the backing up.
  
use strict;
use warnings;

use Data::Dumper;

my $hash = {};

set_multi_level_hash($hash, [qw/ a b c d /], 'potato');

print Dumper $hash;

sub set_multi_level_hash
      {
      my ( $hash, $tiers, $value ) = @_;

      for (0 .. $#$tiers)
            {
            $hash->{$tiers->[$_]} ||= ( $_ == $#$t
  • Re:make use of the indices of the $tiers (Score:1)

    by danboo (2604) on 2004.04.28 16:44 (#30435) Journal

    Oops, to be able to change the value, I suppose the first line in the for loop should be split into:
    
    $hash->{$tiers->[$_]} = {} unless exists $hash->{$tiers->[$_]};
$hash->{$tiers->[$_]} = $value if $_ == $#$tiers;


    Reply to This

    Parent