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