将哈希传递给Perl中的子例程
当您向接受列表的Perl子例程或运算符提供哈希值时，哈希值将自动转换为键/值对列表。例如-
示例
#!/usr/bin/perl
# Function definition
sub PrintHash {
my (%hash) = @_;
foreach my $key ( keys %hash ) {
my $value = $hash{$key};
print "$key : $value\n";
}
}
%hash = ('name' => 'Tom', 'age' => 19);
# Function call with hash parameter
PrintHash(%hash);输出结果
执行以上程序后，将产生以下结果-
name : Tom age : 19