On 28 Nov, 01:44, [EMAIL PROTECTED] (Jeff Pang) wrote:
> Hello,
>
> Just show another way to do it.
>
> use strict;
>
> local $/="\n\n";
> while(<DATA>) {
> next unless /^DOC-START\n(.*?)\nDOC-END$/sm;
> my $content = $1;
> parse($content);
>
> }
Thank you all for your answers. In particular, Jeff, I'm trying to
use your code.. what does
> local $/="\n\n";
do?
I've noticed that if there are some newlines between DOC_START, text,
and DOC_END, as in
DOC_START
gfghdfghdfghfgh
DOC_END
by doing
local $/="\n\n\n";
I get output (if I don't do that $content is empty). Can you tell me
why?
Regards Giuseppe
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
