Re: how do I use a hash of hashes reference to a function ?

Alternately, although this is less readable, you can dereference a hash in the subroutine with:

foo(\%hash);

sub foo {
    my %hash = %{shift()};
    # rest of function here, which manipulates hash directly
}
[download]

Call me perverse, but I just love the way that line looks (from what I understant, the () is required when you put shift in the braces to force perl to recognize it as a function call and not a hash key ... but I've been wrong about these things in the past ...

Comment on Re: how do I use a hash of hashes reference to a function ? Download Code

Replies are listed 'Best First'.

RE: Answer: how do I use a hash of hashes reference to a function ?
by Fastolfe (Vicar) on Sep 22, 2000 at 19:55 UTC

%hash

%{...}

%hash1 = %hash2;
[download]

alias

copy

%hash1

%hash2

And no, you don't have to put parens around your split call. Perl does the correct thing here, but it may be more readable to others if you write it with parens anyway. Here is some test-case code you can try yourself:

sub test {
        my $hash1 = shift;
        my %hash2 = %{shift};

        $hash1->{three} = 3;
        $hash2{three} = 3;
}

my %a = (one => 1, two => 2);
my %b = (one => 1, two => 2);

&test(\%a, \%b);

print join(", ", keys %a), "\n";
print join(", ", keys %b), "\n";

# three, two, one
# two, one
[download]

[reply]
[d/l]
[select]


Keep It Simple, Stupid
	PerlMonks