¿Cómo puedo ver si un hash Perl ya tiene una determinada clave?

Question

Tengo un script Perl que cuenta el número de ocurrencias de varias cadenas en un archivo de texto. Quiero poder verificar si una cierta cadena aún no es una clave en el hash. ¿Hay una mejor manera de hacer esto por completo?

Aquí es lo que estoy haciendo:

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

creo para comprobar si existe una clave en un hash que acaba de hacer

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

Answer 2

supongo que este código debe responder a su pregunta:

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

salida:

three: 1 
one: 1 
two: 2 

La iteración se puede simplificar a:

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

(Ver $_ en perlvar.) E incluso se puede escribir algo como esto:

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

cual reporta cada tecla la primera vez que es encontró.

Answer 3

Sólo puede ir con:

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

Answer 4

Bueno, todo el código puede limitarse a:

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

Si el valor no está ahí, ++ operador asuma que ser 0 (y luego incremente a 1). Si ya está allí, simplemente se incrementará.

Answer 5

Recomendaría no usar if ($hash{$key}) ya que no hará lo que espera si la clave existe pero su valor es cero o está vacío.