您如何在 Perl 中使用 sed（第 2 部分）？

Question

这是与此线程类似的问题How do you use sed from Perl?

我的问题是：我在 csh 语句中有一个 sed 管道，例如：

set lineNumbers= `grep "textToFind" $fileToProcess | s/.*textToFind //' | sed 's/;.*//'`

我想在不使用 s2p 模块的情况下解决这个问题，例如：

my @linenumbers;
open FH "<$fileToProcess";
while (<FH>)
{
   next if (!m/textToFind/);
   chomp;
   s/.*textToFind //, s/;.*//;
   push @lineNumbers, $_;
}    

但不确定如何在不使用模块的情况下以这种方式包含 sed 管道。 我用逗号分隔了第二个管道。 不确定这是否是正确的语法。 在 chomp 之后包括 sed 管道的任何帮助都是可观的。

谢谢！

Answer 1

我认为您要求的是：

my @linenumbers;
open my $INPUT_FH, '<', $fileToProcess;
while (<$INPUT_FH>)
{
   next if (!m/textToFind/);
   push @lineNumbers, $.;
}

$. 是当前文件句柄所在行的 perl 变量。