Help for this page

Select Code to Download


  1. or download this
      DB<72> map {if ($x=(/b/../d/)) { $out[$x]=$_; $last=$x }} a..e,a..e,
+a..b,1..3,d..e;

...
3  3
4  'd'
  DB<74>
  2. or download this
    >perl -ne"if ($x=(/PATTERN1/.../PATTERN?/)) { $out[$x]=$_; $last=$x; }
+; END{ print @out[1..$last] }" input
PATTERN1 SOME INFO
...
TEXT6 PATTERN3 SOME INFO

C:\tmp\files>