Iain Wallace wrote:
>
> Hi,
Hello,
> I was wondering if any one can help me. Is there any
> command in perl that will let me match a line only if the next line
> fufills a certain condition, without doing a double loop over the file?
> My data is like this
>
> Variable1 number number number
> Variable1 number number number --- want this line
> Variable2 number number number --- and this
> Variable2 number number number
>
> Does any one have any ideas ?
open FILE, 'some_file' or die "Cannot open some_file: $!";
my $prev_line = <FILE>;
while ( <FILE> ) {
if ( /certain condition/ ) {
print "$prev_line$_";
}
$prev_line = $_;
}
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
