Perl hash'ın zaten bir anahtarının olup olmadığını nasıl görebilirim?

Question

Metin dosyasındaki çeşitli dizelerin tekrar sayısını belirten bir Perl betiğim var. Belirli bir dizenin henüz hashta bir anahtar olup olmadığını kontrol edebilmek istiyorum. Bunu daha iyi yapmanın daha iyi bir yolu var mı? İşte

yapıyorum budur:

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

Bir anahtar bir karma olup olmadığını kontrol etmek inanmak Ben bu kod sorunuza cevap gerektiğini tahmin

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

Answer 2

sadece yapın:

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"; 
} 

Çıktı:

(. perlvar içinde $_ Bkz)

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

Ve hatta böyle bir şey yazabilirsiniz:: 10

three: 1 
one: 1 
two: 2 

yineleme basitleştiirlebilir öyle her anahtar ilk kez bildiriyor

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

buldum. değeri yoksa operatör 0 olmasını üstlenecek ++,

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

:

Answer 3

Sadece gidebilirsiniz:

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

Answer 4

Eh, bütün kod sınırlandırılabilir (ve sonra 1'e kadar artırın). Zaten orada ise - sadece artırılır.

Answer 5

if ($hash{$key})'u kullanmayla ilgili olarak, anahtar varsa, ancak değeri sıfır veya boş olduğunda beklediğiniz şeyi yapmayacağından dolayı size tavsiyede bulunacağım.