>> I ended up with something like:
>> my $string = join('',(<DATA>));
>> my ($sql1, $sql2) = split(/\nn\n/sm, $string);
> ^^^^^^^^^
>You probably meant /\n\n/.
Yes, thanks
>
>
>> But I like the $/ idea.
>
>You could set $/ to paragraph mode:
>
>my ( $sql1, $sql2 ) = do { local $/ = ''; <DATA> };
>
Could I also do:
my ($sql1, $sql2) = do { local $/ = '\n\n'; <DATA>);
??
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
