in reply to simple question on next line parameter

Why not just do it this way? 
open OUTFILE, "<$outfile";
my @OUT = <OUTFILE>;
open FINAL, ">$final";
my $line;
 foreach $line(@OUT) {
    if ($line=~/(my first line)<br>/) {print FINAL "$1\n"}
    if ($line=~/(my second line)<br>/) {print FINAL "$1\n\n"}
    if ($line=~/(my third line)<br>/) {print FINAL "$1\n"}
}

[download]

Blessings,

~Polyglot~

Replies are listed 'Best First'.
Re^2: simple question on next line parameter
by Bloodnok (Vicar) on May 19, 2009 at 17:44 UTC
    ...or even 
    open OUTFILE, "<$outfile";
open FINAL, ">$final";

foreach my $line (<OUTFILE>) {
    print FINAL "$1\n" if
        $line =~ /(my first line|my second line|my third line)<br>/);
}

    [download]
    A user level that continues to overstate my experience :-))
[reply]
[d/l]

In Section Seekers of Perl Wisdom