Re: Sed in perl

[1nickt]

Hi, no sed, use Perl natively for this! It's what Perl is made for. Open the file, loop through the lines, save the last instance of YYY, print it when you find ABC.

use strict;
use warnings;

my $last_seen;

for my $line ( <DATA> ) {
    $last_seen = $line if $line =~ /YYY/;
    print $last_seen if $line =~ /ABC/;
}

__DATA__
something
something
YYY first
something
something
YYY second
something
ABC
something

Output:

$ perl ~/monks/1223838.pl
YYY second

Hope this helps!

[abhay180]

Thx!!! yes, i can do this. It would be great to understand why the sed is not working though.

[soonix]

I would

my $cmd = "tac temp.xx | sed -n '/$mod /,/YYY/ p'| grep XXX";
print "executing: '$cmd'\n";
$hier = `$cmd`;
print "result: '$hier'\n";

to actually see what's going on.