Làm cách nào tôi có thể xem liệu một băm Perl đã có một khóa nhất định?

Question

Tôi có một tập lệnh Perl đếm số lần xuất hiện của các chuỗi khác nhau trong một tệp văn bản. Tôi muốn có thể kiểm tra xem một chuỗi nào đó chưa phải là một khóa trong băm. Có cách nào tốt hơn để làm điều này hoàn toàn không?

Đây là những gì tôi đang làm:

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

Tôi tin rằng để kiểm tra xem một chìa khóa tồn tại trong một hash bạn chỉ cần làm

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

Answer 2

Tôi đoán rằng mã này nên trả lời câu hỏi của bạ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"; 
} 

Đầu ra:

three: 1 
one: 1 
two: 2 

Các lặp có thể được đơn giản hóa để:

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

(Xem $_ trong perlvar.) Và thậm chí bạn có thể viết một cái gì đó như thế này:

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

Những báo cáo mỗi phím lần đầu tiên nó tìm.

Answer 3

Bạn chỉ có thể đi với:

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

Answer 4

Vâng, toàn bộ mã của bạn có thể được giới hạn:

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

Nếu giá trị là không có, ++ điều hành sẽ cho rằng nó là 0 (và sau đó tăng lên 1). Nếu nó đã ở đó - nó sẽ đơn giản được tăng lên.

Answer 5

Tôi khuyên bạn không nên sử dụng if ($hash{$key}) vì nó sẽ không làm những gì bạn mong đợi nếu khóa tồn tại nhưng giá trị của nó bằng 0 hoặc trống.