如何忽略 perl grep 中的任何空值？

Question

我使用以下方法来计算文件中某个模式的出现次数：

my @lines = grep /$text/, <$fp>;
print ($#lines + 1);

但有时它打印的结果比实际值多 1。我查了一下，是因为@lines最后一个元素为null，所以也算进去了。

为什么有时 grep 结果的最后一个元素为空？另外，这个问题如何解决？

Answer 1

这实际上很大程度上取决于您的模式，但您可以做的一件事是加入几个匹配项，第一个匹配项取消任何仅包含空格（或不包含空格）的行。此示例将拒绝任何空行、仅换行符或仅包含任意数量的空格的行。

my @lines = grep { not /^\s*$/ and /$test/ } <$fp>;

请记住，如果 $test 的内容碰巧包含 regexp 特殊元字符，则它们要么需要用于其元字符目的，要么使用 quotemeta() 进行消毒。

我的理论是，您可能有一个以 \n 结尾的行，它以某种方式与您的 $text 正则表达式匹配，或者您的 $text 正则表达式包含其中的元字符，这些元字符在您不知情的情况下影响匹配。无论哪种方式，我提供的代码片段至少会强制拒绝“空白行”，其中空白可能意味着完全空（不太可能）、换行符终止但否则为空（可能），或者包含空白行（可能）在打印时显示为空白。

Answer 2

匹配空字符串的正则表达式将匹配 undef。 Perl 会警告这样做，但在尝试匹配之前将 undef 转换为 ''，此时 grep 会很高兴地促进undef 到其结果。如果您不想选取空字符串（或任何将像空字符串一样进行匹配的内容），则需要重写正则表达式以使其不匹配。

Answer 3

要准确查看行中的内容，请执行以下操作：

use Data::Dumper;
$Data::Dumper::Useqq = 1;
print Dumper \@lines;

Answer 4

好吧，由于没有更多关于 $text （正则表达式）内容的信息，我想我会抛出一些一般信息。

考虑以下示例：

use Data::Dumper;

my @array = (' ', 1, 2, 'a', '');
print Dumper [ grep /\s*/, @array ];

我们得到：

$VAR1 = [
          ' ',
          1,
          2,
          'a',
          ''
        ];

所有值都匹配。为什么？因为它们也匹配空字符串。为了得到我们想要的，我们需要 \s 或 \s+。 （两者不会有实际区别）

你可能会遇到这样的问题。