while ($line = <>) {
  # redo comes HERE
  # do something
  my $next = <>;
  if ($next !~ /^#/) {
    # if the next line DOES NOT start with a "#"
    # reuse it and restart this iteration of the loop
    $line = $next;
    redo;
  }
}
[download]

while ($line = <>) {
  # ...
  my $pos = tell ARGV;
  my $next = <>;
  seek ARGV, $pos, 0;
  # ...
}
[download]

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

1. Read the file into an array if the file is not too large; or
2. Arrange to pretend that the current line from the diamond operator is the 'next' line and the last line is the 'current' line.

--t. alex

"Mud, mud, glorious mud. Nothing quite like it for cooling the blood!" --Michael Flanders and Donald Swann

Number two was also what I had in mind. Something like the following:

#! /usr/bin/perl

use strict ;
use warnings ;

my $line = <> ;
my $queued_line = '' ;
chomp $line ;
while ( $queued_line = <> )
{
    chomp $queued_line ;
    $line =~ m|<(.+?)>| ;
    print "Found match: [$1] (next line: $queued_line)\n" ;
    $line = $queued_line ;
}

$line =~ m|<(.+?)>| ;
print "Found match: [$1] (last line)\n" ;
[download]


_______________
D a m n D i r t y A p e
Home Node | Email

This will do what you want - I'm using <DATA> for test purposes. use <> for yours.

#!perl -w
use strict;

while (<DATA>) {
    chomp;
    print "current line=$_\n";
    if (/check next/) {
        my $pos = tell();
        my $testline = <DATA>;
        chomp $testline;
        print "'next line' = $testline\n";
        #do something...
        seek DATA, $pos, 0;
    }
    print "current line=$_\n";
}

__DATA__
line 1
line 2
line 3 check next
line 4 OK?
line 5
[download]

Anyone know of an abbottoire going cheap?

But you can use a buffer. The simplest is a one-scalar buffer. If you want to look, read in the line in a scalar, later, if you want to process the line, process the scalar. You can wrap this up in a module, and if you want to be fancy, you tie it to a filehandle. Or with perl 5.8, you should be able to write an IO layer that does that for you.

Abigail

#!/usr/bin/perl
use strict;
use warnings;

{
  $_ = <DATA>;
  my $next_line;

  while( $next_line = <DATA> )
  {
    print "current line: $_ -- next line: $next_line$/";
  }
  continue
  {
    $_ = $next_line;
  }
}
__DATA__
1
2
3
4
5
[download]

current line: 1
 -- next line: 2

current line: 2
 -- next line: 3

current line: 3
 -- next line: 4

current line: 4
 -- next line: 5
[download]

~Particle *accelerates*