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

Question

This is a similar question to this thread How do you use sed from Perl?

My question is: I have a pipeline of sed in a csh statement such as this:

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

I would like to solve this issue without using s2p module such as this:

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

But not sure how to include the sed pipeline in this way without using the module. I separated the second pipeline with a comma. Not sure if that is a right syntax. Any help to include both the pipeline of sed after the chomp would be appreciable.

Thank you!

Answer 1

What I think you are asking for is something like:

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

$. is the perl variable for the line of the current file handle.