Re: Parsing text file question

Another way of doing this:

#!/usr/local/bin/perl

use strict;
use warnings;

my @lines_ok = ();

while (<DATA>) {
    chomp;
    pop @lines_ok, next if /fail/;
    push @lines_ok, $_;
}
print join(", ", @lines_ok);

__DATA__
line 1
line 2
line 3
fail
line 4
line 5
[download]

Arjen

Comment on Re: Parsing text file question Download Code

Replies are listed 'Best First'.
Re^2: Parsing text file question by husker (Chaplain) on Jun 28, 2004 at 13:41 UTC
This also excludes lines that have "fail" in them, which is not specified in the OP. Remove the "next" phrase from the "pop" line and I think you've got it.	[reply]

In Section Seekers of Perl Wisdom