从 perl 中的文件返回具有匹配模式的行

Question

我需要编写一个 perl 脚本来提取匹配不同模式的行，然后对其进行操作。我已经完成了以下匹配并提取了所有包含匹配模式的行：

my $filetoread = <$curr_dir/p*.out>;
my $filetoreadStrings=`strings $filetoread | egrep \"(Preparing extraction | 100.00%)\"`;
my @ftr = split('\n', $filetoreadStrings);
chomp (@ftr);

my $FirstPattern = (grep /Preparing extraction/, @ftr)[0];
my $SecondPattern = (grep /100.00% done/, @ftr)[0];
print "$FirstPattern \n";
print "$SecondPattern \n";

我只得到第二个模式的行，即使第一个模式（准备提取）存在于日志中。我认为问题在于或'|'。我需要知道如何获得与模式匹配的所有行。 [$curr_dir 是我运行脚本的目录，P*.out 是日志文件]

Answer 1

`... egrep \"(Preparing extraction | 100.00%)\" ...`

应该是

`... egrep \"(Preparing extraction| 100.00%)\" ...`

或者只是

`... egrep "(Preparing extraction| 100.00%)" ...`

---

my $filetoread = <$curr_dir/p*.out>;

应该是

my ($filetoread) = <$curr_dir/p*.out>;

不要在标量上下文中调用<glob_pattern>，除非你调用它直到它返回undef。

---

my @ftr = split '\n', `...`;
chomp(@ftr);

应该是

my @ftr = split /\n/, `...`;

或

chomp( my @ftr = `...` );