in reply to Help with negative look ahed
In your particular case, regexes seem to be overkill. Since the text has "ITEM " only in headings and nowhere else, and that seems to be where you want to split on, it's easier to use split:
use File::Slurp qw<slurp>; my $text = slurp("a5927574.txt"); my @items = split "ITEM ", $text; # print first item, as it is print shift @items; # prepend "ITEM " to the rest and print print "ITEM $_" for @items;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Help with negative look ahed
by davido (Cardinal) on Oct 19, 2012 at 06:57 UTC | |
Re^2: Help with negative look ahed
by eversuhoshin (Sexton) on Oct 18, 2012 at 19:55 UTC |
In Section
Seekers of Perl Wisdom