Perlハッシュに既に特定のキーがあるかどうかを確認するにはどうすればよいですか？

Question

私は、テキストファイル内のさまざまな文字列の出現回数をカウントしているPerlスクリプトを持っています。私は、特定の文字列がまだハッシュのキーでないかどうかをチェックできるようにしたい。これを行うには良い方法がありますか？ここで

は私がやっているものです：

foreach $line (@lines){ 
    if(($line =~ m|my regex|)) 
    { 
     $string = $1; 
     if ($string is not a key in %strings) # "strings" is an associative array 
     { 
      $strings{$string} = 1; 
     } 
     else 
     { 
      $n = ($strings{$string}); 
      $strings{$string} = $n +1; 
     } 
    } 
} 

Answer 1

私はキーがハッシュに存在するかどうかをチェックするために信じて、私はこのコードは、あなたの質問に答える必要があることを推測する

if (exists $strings{$string}) { 
    ... 
} else { 
    ... 
} 

Answer 2

あなただけの操作を行います。

use strict; 
use warnings; 

my @keys = qw/one two three two/; 
my %hash; 
for my $key (@keys) 
{ 
    $hash{$key}++; 
} 

for my $key (keys %hash) 
{ 
    print "$key: ", $hash{$key}, "\n"; 
} 

出力：

three: 1 
one: 1 
two: 2 

は反復がに簡素化することができます。

$hash{$_}++ for (@keys); 

（perlvarで$_を参照してください。）あなたも、このような何か書くことができます。各キーにそれはだ最初の時間を報告し

$hash{$_}++ or print "Found new value: $_.\n" for (@keys); 

を見つかりました。

Answer 3

あなただけで行くことができます。

if(!$strings{$string}) .... 

Answer 4

さて、あなたの全体のコードはに制限することができます。値が存在しない場合には、++演算子は0であることを、それを前提とします

foreach $line (@lines){ 
     $strings{$1}++ if $line =~ m|my regex|; 
} 

（そして1に増分します）。既に存在する場合は、単にインクリメントされます。私はそれがキーが存在するが、その値がゼロまたは空の場合は何を期待しないだろうので、if ($hash{$key})を使用に対する助言だろう

Answer 5

。