(BEG.*?KEYWORD.*?END)/g );
}
print $_ . "\n" foreach (@files);
Matt
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Vaughn, Terry
Sent: Tuesday, February 06, 2007 9:42 AM
To: perl-unix-users@listserv.activestate.com
Subject: [Perl-un
Can someone point out what I appear to be missing ? I am trying to extract
BEG ... KEYWORD .. END from the DATA string below:
I only want the BEG to END portion where KEYWORD is in between. As is. I
get the entire string.
Sorrynewline chars were removedMore readable form be
Can someone point out what I appear to be missing ? I am trying to
extract BEG ... KEYWORD .. END from the DATA string below:
I only want the BEG to END portion where KEYWORD is in between. As
is. I get the entire string.
#!/usr/bin/perl
while () {
push(@files, /(BE
