Как я могу узнать, есть ли у хэша 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

Ну, весь ваш код может быть ограничен:

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

Если значение не существует, ++ оператор будет считать его равным 0 (а затем увеличивайте до 1). Если он уже существует, он просто будет увеличен.

Answer 5

Я бы советовал не использовать if ($hash{$key}), поскольку он не будет делать то, что вы ожидаете, если ключ существует, но его значение равно нулю или пусто.