以下のperlスクリプトのハッシュでのデバッグ

Question

ハッシュで名前を検索するperlスクリプトで作業していますが、その人の電話番号が返されます。ちょうどハッシュのキーを探して、見つかったキーの値を返します。それ以外の場合は、 "bookにnameが見つかりません"と表示されます。私はハッシュに存在する値を与えているときに要素にアクセスできません。コードを変更するには何が必要ですか？

$namesearch=""; 
%phoneNumbers={"ramu"=>123,"rishi"=>456,"sai"=>789}; 
while($namesearch ne "END") 
{ 
    print("Enter name to search:\n"); 
    $namesearch=<STDIN>; 
    chomp $namesearch; 
if(exists($phoneNumbers{$namesearch})) 
{ 
    print "The phone Number of $namesearch is: ($phoneNumbers{$namesearch})\n"; 
} 
elsif($namesearch eq "END") 
{ 
    last; 
} 
else 
{ 
    print "Name not found in book\n"; 
    } 
} 

私は取得しています出力は次のようになります。

​​

Answer 1

良いプラクティスとして、デバッグが容易になりますし、あなたのコード内でstrictとwarningsプラグマを使用する必要があります。

厳格

strictプラグマは 予期しない動作やデバッグが困難な、 エラーにそれらを回すことができ、特定のPerlの表現を無効にします。このプラグマの効果は、現在のファイルまたは スコープブロックに限定されています。

警告

このプラグマはちょうどstrictプラグマのように動作します。これは、警告プラグマの スコープが囲むブロックに限定されていることを意味します。また、 は、プラグマの設定がファイル間で漏れないことを意味します（使用、 requireまたはdoを使用）。これにより、著者は自らのモジュールに適用される警告チェックの度合いを別個に定義することができます（ ）。

私はあなたのコード内のいくつかの変更を行なったし、あなたはそれが動作するためにやるべきことがいくつかあります。

use strict; 
use warnings; 
use diagnostics; 

#Always declare your variables 
my $namesearch = ""; 

#Change your hash ref to a simple hash 
my %phoneNumbers = ("ramu" => 123, "rishi" => 456, "sai" => 789); 

while ($namesearch ne "END") { 
    print("Enter name to search:\n"); 
    $namesearch = <STDIN>; 
    chomp $namesearch; 
    if (exists($phoneNumbers{$namesearch})) { 
     print 
      "The phone Number of $namesearch is: ($phoneNumbers{$namesearch})\n"; 
    } 
    elsif ($namesearch eq "END") { 
     last; 
    } 
    else { 
     print "Name not found in book\n"; 
    } 
} 

も参照（perlreftut）についてはperldocにてご確認方法については、いくつかの説明があります。配列やハッシュのような変数をどのように使用しているかによって構文が変わるため、正しく使用することができます。