in reply to Sed in perl
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.
Output: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
$ perl ~/monks/1223838.pl YYY second
Hope this helps!
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Sed in perl
by abhay180 (Sexton) on Oct 11, 2018 at 01:08 UTC | |
by soonix (Chancellor) on Oct 11, 2018 at 02:01 UTC |