Re: Reading two lines per loop iteration

This sort of thing?

while ( my $line1 = <$fh> )
{
    my $line2 = <$fh>;

    # etc
}
[download]

You'll need to check for eof on the second read though.

Comment on Re: Reading two lines per loop iteration Download Code

Replies are listed 'Best First'.
Re^2: Reading two lines per loop iteration by blazar (Canon) on Jun 09, 2007 at 13:52 UTC
This sort of thing? `while ( my $line1 = <$fh> ) { my $line2 = <$fh>; # etc }` [download] Except that `while ( my $line1 = <$fh> )` [download] is just the same as `while ( defined(my $line1 = <$fh>) )` [download] so perhaps I would do: `while ( my $line1 = <$fh> ) { defined(my $line2 = <$fh>) or last; # etc }` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Reading two lines per loop iteration
by blazar (Canon) on Jun 09, 2007 at 13:52 UTC

This sort of thing?

while ( my $line1 = <$fh> ) { my $line2 = <$fh>; # etc }
[download]

Except that

while ( my $line1 = <$fh> )
[download]

is just the same as

while ( defined(my $line1 = <$fh>) )
[download]

so perhaps I would do:

while ( my $line1 = <$fh> )
{
    defined(my $line2 = <$fh>) or last;

    # etc
}
[download]