Gunnar Hjalmarsson wrote:
[EMAIL PROTECTED] wrote:
On Jan 14, 5:08 pm, [EMAIL PROTECTED] (Gunnar Hjalmarsson) wrote:
[EMAIL PROTECTED] wrote:
I have a large text file with
information essentially broken into lines like this:
findable text with a regexp
information I care about
more findable text
There are plenty of sections like this in the file. How can I write a
program that opens the file then searches for the middle line and
prints it to a new file?
open my $IN, '<', 'infile.txt' or die $!;
open my $OUT, '>', 'outfile.txt' or die $!
while ( <$IN> ) {
print $OUT scalar <$IN> if /^findable/;
}
OK here's what I've got:
#!/usr/local/bin/perl
use strict;
use warnings;
open (OUT, ">output.txt") or die "Couldn't open output: $!";
open (IN, "input.txt") or die "Couldn't open input: $!";
while (<IN>) {
print OUT $_;
}
close OUT;
close IN;
This (obviously) copies the whole text file. How can I select only
certain lines to copy based on either the line above or below it?
I suggested a solution. Why do you ignore my suggestion and repeat your
question?
Your suggestion didn't tell him how to solve his problem Gunnar.
A construct like the program below may help.
Rob
use strict;
use warnings;
my $wanted;
while (<DATA>) {
if (/findable text with a regexp/) {
$wanted = 1;
}
elsif (/more findable text/) {
$wanted = undef;
}
elsif ($wanted) {
print;
}
}
__DATA__
junk
junk
junk
findable text with a regexp
information I care about
more findable text
junk
junk
junk
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
