http://www.perlmonks.org?node_id=1051884


in reply to perl one line for advanced grep (current line and next one)

perl -ne 'print $_.=<> if /string/' testfile

Replies are listed 'Best First'.
Re^2: perl one line for advanced grep (current line and next one)
by Random_Walk (Prior) on Sep 02, 2013 at 08:03 UTC

    Nice, but it misses the line following a second consecutive line matching the pattern

    # eg this works as expected test1 string test2 test3 # this one fails to print test2 test1 string string test2 test3

    Cheers,
    R.

    Pereant, qui ante nos nostra dixerunt!
      It also hangs if the last line matches. So much for working off the top of my head.