Re: passing paramters to a sub

[rupesh]

Using references is a recommended way of passing hashes to subroutines.

my %hash = (
    foo => "one",
    bar => "two",
    foobar => "three",
);

my %values = func(\%hash);

sub func {
    my $h_ref = shift;
    my %newhash;
    foreach my $key (sort keys %$h_ref) {
        print "$key => ", $h_ref->{$key}, "\n";
        $newhash{$key}=$h_ref->{$key} if $key =~ /regexp/;
    }
    return \%newhash;
}