Help for this page

Select Code to Download


  1. or download this
    C:\tmp\files>perl -nE"if ($x=(/PATTERN1/../PATTERN3/)) { @out=() if /P
+ATTERN1/; push @out,$_; print @out if $x=~/E0$/ }" input2
PATTERN1 SOME INFO

...
TEXT6 PATTERN3 SOME INFO

C:\tmp\files>
  2. or download this
    C:\tmp\files>perl -nE" $first=/PATTERN1/; $last=/PATTERN3/; if ( $firs
+t..$last) { @o=() if $first; push @o,$_; say @o if $last }" input2
PATTERN1 SOME INFO
...
TEXT5

TEXT6 PATTERN3 SOME INFO