next line

[Yarka]

Hi,

I've my script as:

my $aa = "aa";
while (<>){
if (/^(\d+)\t$aa\t.*?\t(\d+:\d+)\t/) {
...
}
...
}

After if (/^(\d+)\t$aa\t.*?\t(\d+:\d+)\t/), I need to take out data to the next line of the input's file. How can I go next line on Perl?

Thanks.

 

[mbrooks]

my $aa = "aa";

while (<>){
	next if ( /^(\d+)\t$aa\t.*?\t(\d+:\d+)\t/ );

	# parse line
}

M. Brooks

http://mbrooks.info

 

[KevinADC]

or maybe:

my $aa = "aa";
while (<>){
    if (/^(\d+)\t$aa\t.*?\t(\d+:\d+)\t/) {
       $next_line = <>;
    }
}

------------------------------------------
- Kevin, perl coder unexceptional!