perl防止鍵值重複

Question

我正逐行循環一個文件，它有鍵 - >值對，然後輸出到xml。我如何進行檢查以確保我還沒有輸出這個鍵/值對？ 在C＃中，我會通過插入字典，然後使用.Contains（），perl中的任何提示來做到這一點。

Answer 1

Perl擁有對散列元素進行操作的defined和exists關鍵字。

$hash{'foo'} = 'bar'; 
print defined $hash{'foo'};  # prints 1 
print exists $hash{'foo'};  # prints 1 

對於大多數用途，他們做同樣的事情。一個微妙的區別是當散列值是特殊的「未定義」值：

$hash{'baz'} = undef; 
print defined $hash{'baz'};  # doesn't print 1 
print exists $hash{'baz'};  # prints 1 

Answer 2

你可以使用perl hash來做同樣的事情。

my %seen; 
while (my $line = <$filehandle>) 
{ 
    next if ($seen{$line}); 
    print $line; 
    $seen{$line} = 1; 
}