Re: How do I pass a hash to a sub, and get to it in the sub?

[Tor Hildrum]

<snip>

> #!/usr/bin/perl
> 
> use strict;
> 
> my %hash = (
>       key1 => 'value 1',
>       key2 => 'value 2',
>       key3 => 'value 3',
> );
> 
> print_hash(\%hash, '=>');
> 
> sub print_hash {
>       my ($hash, $connector) = @_;
> 
>       foreach my $key (sort keys %$hash) {
>               print "$key $connector $$hash{$key}\n";
>       }
> }

I'm new to perl, but isn't this easier to understand:
#!/usr/bin/perl
  
use strict;

my %hash = (
        key1 => 'value 1',
        key2 => 'value 2',
        key3 => 'value 3',
);

print_hash(\%hash);
 
sub print_hash {
        my ($hash) = @_;
        foreach my $key (sort keys %$hash) {
                print "$key => $hash->{$key}\n";
        }
}

I took out the $connector and dereferenced with ->.
I am pretty new to Perl, and it took me awhile to understand why you passed
=> to the sub, and what $connector was..
I'm just sayin :)

-- 
T.



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]