How do you use sed from Perl?

Question

I know how to use sed with grep, but within Perl the below fails. How can one get sed to work within a Perl program?

c         


        

Answer 1

Anything you need to do with grep or sed can be done natively in perl more easily. For instance (this is roughly right, but probably wrong):

my @linenumbers;
open FH "<$fileToProcess";
while ()
{
   next if (!m/textToFind/);
   chomp;
   s/^\([0-9]*\)[:].*/\1/;
   push @lineNumbers, $_;
}