从另一个脚本获取哈希引用键和值

Question

大家好 我有一个带有子模块的模块，它从例如 script.pl 获取其参数 在 script.pl 中，我以这种方式调用该函数 moduleName::sunName(\%hashref).
现在在模块和子主体中，我想打印那些传递的参数。我还想检查此 href 的每个键的值是否为空 print '-' 而不是 0。 模块的第一部分：

sub printOptions {

   my $opt = shift;
   # I have this
   print $opt->{'id'};
   # But I need all parameters!
 }

谢谢

Answer 1

尝试：

sub printOptions {
  my $opt = shift @_;

  for my $key ( sort keys %$opt ){
    if( defined( $opt->{$key} )){
      print "$key: $opt->{$key}\n";
    }else{
      print "$key: undef\n";
    }
  }
}

Answer 2

马特，你现在得到了什么？要取消引用 $opt ，您可以执行以下操作

%opt = %{ $opt }

要迭代键，您可以执行以下操作

for my $key ( sort keys %opt ) {
    print "$key: " . ($opt{ $key } || '-') . "\n";
}