Grep 在 Perl 数组中查找项目

Question

每次我输入一些内容时，代码总是告诉我它存在。但我知道有些输入不存在。怎么了？

#!/usr/bin/perl

@array = <>;
print "Enter the word you what to match\n";
chomp($match = <STDIN>);

if (grep($match, @array)) {
    print "found it\n";
}

Answer 1

您提供给 grep 的第一个参数需要评估为 true 或 false 以指示是否存在匹配。所以应该是这样的：

# note that grep returns a list, so $matched needs to be in brackets to get the 
# actual value, otherwise $matched will just contain the number of matches
if (my ($matched) = grep $_ eq $match, @array) {
    print "found it: $matched\n";
}

如果您需要匹配许多不同的值，那么您也可能值得考虑将数组数据放入哈希值中，因为哈希值允许您有效地完成此操作，而无需遍历列表。

# convert array to a hash with the array elements as the hash keys and the values are simply 1
my %hash = map {$_ => 1} @array;

# check if the hash contains $match
if (defined $hash{$match}) {
    print "found it\n";
}

Answer 2

您似乎像 Unix grep 实用程序一样使用 grep() ，这是错误的。

Perl 的 grep() 在标量上下文中计算每个表达式的值列表的元素并返回表达式为 true 的次数。
因此，当 $match 包含任何“true”值时，标量上下文中的 grep($match, @array) 将始终返回 @array< 中的元素数量/代码>。

相反，尝试使用模式匹配运算符：

if (grep /$match/, @array) {
    print "found it\n";
}

Answer 3

这可以使用 List::Util 的 first 函数：

use List::Util qw/first/;

my @array = qw/foo bar baz/;
print first { $_ eq 'bar' } @array;

List::Util 中的其他函数，例如 max、min、sum 等可能对你有用

Answer 4

除了 eugene 和 stevenl 发布的内容之外，您可能会遇到在一个脚本中同时使用 <> 和 的问题： 迭代（=连接）作为命令行参数给出的所有文件。

但是，如果用户忘记在命令行上指定文件，它将从 STDIN 读取，并且您的代码将永远等待输入

Answer 5

我可能会发生这样的情况：如果您的数组包含字符串“hello”，并且如果您正在搜索“he”，则 grep 返回 true，尽管“he”可能不是数组元素。

也许，

if (grep(/^$match$/, @array)) 更合适。

Answer 6

您还可以检查多个数组中的单个值，例如，

if (grep /$match/, @array, @array_one, @array_two, @array_Three)
{
    print "found it\n";
}