in reply to Re: perl one line for advanced grep (current line and next one)in thread perl one line for advanced grep (current line and next one)
perl -ne '
print, $aft++, next if /PAT/;
$aft or next;
$aft = 0;'
Went to join the gridlock to see it
Held an eclipse party
Watched a live feed
I cn"t see tge kwubosd to amswr thus
I tried to see it, but 8000 miles of rock got in the way
Wanted to see it, but they wouldn't reschedule it
Read the book instead
Results (272 votes). Check out past polls.