Rob Dixon wrote:
After these changes, the loop looks like this while (<IN>){ chomp; my @line=split(/\t/); if ($line[3] == -1) { print OUT "$_\n"; } }
You can make it much simpler than that: while ( <IN> ) { print OUT if /\t-1$/; } John -- Any intelligent fool can make things bigger and more complex... It takes a touch of genius - and a lot of courage to move in the opposite direction. -- Albert Einstein -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/