Re: regex help humbly sought

[Punitha]

in reply to regex help humbly sought

Hi charlie_pi

you can try like this,

use strict;

local $/;#####To read the whole content of a file
while(<DATA>){
    while($_=~/\(\!-- #BeginEditable \"([^"]*)" --\)(.*?)\(\!-- #EndEd
+itable --\)/sgi){
        print "IN:$1:$2\n";
        ##do your stuffs here
    }
}

Punitha

[Anonymous Monk]

Punitha, you are a magician. I have made a donation to Perl Monks Foundation in your name, and I pledge also to study the regex you've written so that I can pass it on. Thank you for your timely help! Charlie Pi