On 7/11/07, Chas Owens <[EMAIL PROTECTED]> wrote:
On 7/11/07, Chas Owens <[EMAIL PROTECTED]> wrote:
> On 7/11/07, Chas Owens <[EMAIL PROTECTED]> wrote:
> snip
> > my $rec = '';
> > while (<>) {
> > if (/\\$/) { #if line is a continuation
> > chop; #remove the continuation character
> > $rec .= $_;
> > next;
> > }
> > my @rec = split ' ', $rec;
> > $rec = '';
> > #do stuff with @rec
> > }
> snip
>
> Whoops, left out a chomp after the while. The chop won't work
> correctly without it.
>
A better idea:
my $rec = '';
while (<>) {
if (/(.*)\\$/) { #if line is a continuation
$rec .= $1;
next;
}
my @rec = split ' ', $rec;
$rec = '';
#do stuff with @rec
}
Bugger, this code drops the line after a record. It needs a "$rec .=
$_" after the if.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/