http://qs321.pair.com?node_id=548739


in reply to Re^2: Relative Merits of References
in thread Relative Merits of References

Now you're making an expensive copy of a hash. You could just be using the references with:

my ($r1, $r2) = @_; ... print "$_ $h1{$_}\n" for keys %$r1; print "$_ $h2{$_}\n" for keys %$r2;

Update:Thanks again David, yes, I meant:

print "$_ $r1->{$_}\n" for keys %$r1; print "$_ $r2->{$_}\n" for keys %$r2;



pbeckingham - typist, perishable vertebrate.

Replies are listed 'Best First'.
Re^4: Relative Merits of References
by Hue-Bond (Priest) on May 11, 2006 at 15:34 UTC
    print "$_ $h1{$_}\n" for keys %$r1;

    ITYM $h1->{$_}.

    --
    David Serrano