perl - 计算grep忽略的行

Question

让我尽我所能清楚地解释一下...

我有一个脚本，在某个时候可以做到这一点:

grep -vf ignore.txt input.txt

这个ignore.txt有很多行，我希望我的grep忽略这些内容，因此是-v(这意味着我不想在grep的输出中看到它们)。

现在，我想做的就是能够知道每行ignore.txt忽略了多少行input.txt。

例如，如果ignore.txt有以下几行:

line1
line2
line3

我想知道通过忽略line1忽略了input.txt的多少行，通过忽略line2忽略了多少，依此类推。

关于如何执行此操作的任何想法？

我希望这是有道理的...谢谢!

Answer 1

请注意，被忽略的行加上显示的行的总和可能不等于行的总数...“第1行和第2行在这里”将被计算两次。

#!/usr/bin/perl
use warnings;
use strict;

local @ARGV = 'ignore.txt';
chomp(my @pats = <>);

foreach my $pat (@pats) {
    print "$pat: ", qx/grep -c $pat input.txt/;
}