[ create a new paste ] login | about

Link: http://codepad.org/t8h824gi    [ raw code | output | fork ]

rplantiko - Perl, pasted on Jun 28:
# A range as flip-flop

use strict;
use warnings;

while (<DATA>) { 
  print if /^START/ .. /^STOP/;
  }



__DATA__
Dies ist ein längerer Text
mit vielen unnötigen Zeilen
vor dem eigentlich Wichtigen.
START
Wichtiger Text
über drei
Zeilen
STOP
Und noch unwichtigeren 
Zeilen
nachher


Output:
1
2
3
4
5
START
Wichtiger Text
über drei
Zeilen
STOP


Create a new paste based on this one


Comments: