您如何在 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 變量。