プロトタイプを使ってPerlのサブルーチンにハッシュリファレンスを渡す際に問題がありますか？

Question

私は、Perlのサブルーチンへのハッシュリファレンスを渡すのに問題があるようです。プロトタイプを使ってリファレンスを渡そうとしていますが、問題がどこから来ているのかもしれないと思います。要するに、サブルーチンでハッシュリファレンスを逆参照し、キーの配列を出力しようとすると、配列は空ですが、サブルーチンの外側に印刷されたときにキーが含まれていることを確認できます。サブルーチンの

フォワードの定義：問題の

sub getEvidenceCodeFilteredHash (\%$); 

サブルーチン。

sub getEvidenceCodeFilteredHash (\%$) { 
    my ($hashRef, $evidenceCode); 
    my %evidenceCodeFilteredHash; 
    say "ONE"; 
    say (keys %{$hashRef}); 
    foreach (keys %{$hashRef}) { 
      say "TWO"; 
      if ($_ ne '!gaf-version: 2.0') { 
        say "THREE"; 
        ${$hashRef}{$_} =~ /^\S+?\s+?\S+?\s+?\S+?\s+?\S+?\s+?\S+?\s+?(\S+?)\s.$/; 
        if ($evidenceCode eq $1) { 
          say "FOUR"; 
          $evidenceCodeFilteredHash{$_} = ${$hashRef}{$_}; 
          say $evidenceCodeFilteredHash{$_}; 
        } 
      } 
    } 
    return %evidenceCodeFilteredHash; 
} 

は、ハッシュとスカラーのサブルーチンを呼び出す：

my %evidenceCodeFilteredHash = getEvidenceCodeFilteredHash(%commonPairHash, $evidenceCode); 

おかげでプリントアウトされたと言う機能はサブルーチンで何が起こっているかを見て、今のように、唯一の「ONE」になっています！

Answer 1

$hashRefと$evidenceCodeには何も割り当てませんでした。あなたが言うのを忘れて

my ($hashRef, $evidenceCode) = @_;