perl - 我如何检查一个值是否在 Perl 的列表中？

Question

我有一个文件，其中每一行都是一个代表一个 id 的整数。我想做的只是检查一些特定的 id 是否在这个列表中。 但是代码不起作用。它从来没有告诉我它存在，即使 123 是该文件中的一行。我不知道为什么？感谢帮助。

open (FILE, "list.txt") or die ("unable to open !");

    my @data=<FILE>;

    my %lookup  =map {chop($_) => undef} @data;

    my $element= '123';
    if (exists $lookup{$element})
    {
        print "Exists";
    }

提前致谢。

Answer 1

你想确保你的哈希值是正确的。非常过时的chop不是你想用的。使用 chomp相反，在创建散列之前立即在整个数组上使用它:

 open my $fh, '<', 'list.txt' or die "unable to open list.txt: $!";
 chomp( my @data = <$fh> );
 my $hash = map { $_, 1 } @data;