Re: How to deal with long line


Perl Monk, Perl Meditation
	PerlMonks

Re: How to deal with long line

by chester (Hermit)

on Sep 27, 2005 at 20:47 UTC ( #495550=note: print w/replies, xml )

Need Help??

in reply to How to deal with long line

Here's one way that reads in the string a little bit at a time, which is good if your data is very large. Mostly untested, but works for your data:

use warnings;
use strict;

my @wanted_substrings;

{
    local $/ = 'END';

    while(my $string = <DATA>) {
        push @wanted_substrings, ($string =~ /START(.*)END/);
    }

}

print "@wanted_substrings";
    

__DATA__
somecharSTARTfvENDsomecharSTARTsvENDsomecharSTARTtvENDsomechar
[download]