perl - Grep 匹配模式文件的所有行(perl -e 也可以)

Question

我正在寻找一种简单/优雅的方法来 grep 文件，以便每个返回的行都必须匹配模式文件的每一行。

带输入文件

acb
bc
ca
bac

和模式文件

a
b
c

命令应该返回

acb
bac

我试图用 grep -f 做到这一点但如果它匹配文件中的单个模式(而不是全部)，则返回。我还尝试了递归调用 perl -ne 的方法。 (对于模式文件的每一行，在搜索文件上调用 perl -ne 并尝试 grep 到位)但我无法让语法解析器接受从 perl 对 perl 的调用，所以不确定这是否可能。

我认为可能有一种更优雅的方法来做到这一点，所以我想我会检查一下。谢谢!

===更新===

感谢您到目前为止的回答，对不起，如果我不清楚，但我希望只有一行结果(为此创建一个脚本似乎太重了，只是想要一些快速的东西)。我一直在考虑更多，到目前为止我想出了这个:

perl -n -e 'chomp($_); print " | grep $_  "' pattern | xargs echo "cat input"

哪个打印

cat input | grep a | grep b | grep c

这个字符串是我想要执行的，我现在只需要以某种方式执行它。我尝试了一个额外的管道来评估

perl -n -e 'chomp($_); print " | grep $_  "' pattern | xargs echo "cat input" | eval

虽然这给出了信息:

xargs: echo: terminated by signal 13

我不确定这意味着什么？

Answer 1

使用 perl 的一种方式:
input的内容:

acb
bc
ca
bac

pattern的内容:

a
b
c

script.pl的内容:

use warnings;
use strict;

## Check arguments.
die qq[Usage: perl $0 <input-file> <pattern-file>\n] unless @ARGV == 2;

## Open files.
open my $pattern_fh, qq[<], pop @ARGV or die qq[ERROR: Cannot open pattern file: $!\n];
open my $input_fh, qq[<], pop @ARGV or die qq[ERROR: Cannot open input file: $!\n];

## Variable to save the regular expression.
my $str;

## Read patterns to match, and create a regex, with each string in a positive
## look-ahead.
while ( <$pattern_fh> ) { 
    chomp;
    $str .= qq[(?=.*$_)];
}

my $regex = qr/$str/;

## Read each line of data and test if the regex matches.
while ( <$input_fh> ) { 
    chomp;
    printf qq[%s\n], $_ if m/$regex/o;
}

像这样运行它:

perl script.pl input pattern

具有以下输出:

acb
bac