将哈希传递给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