Re: Parsing Multiple Lines.

[Zaxo]

Your routine already distinguishea between data lines and blank (well, nonword) ones. You just haven't used the information. Add an else clause to the end of the if ($line=~/(\w)/) { statement, like:

    }
    else {
        print "This line intentionally left blank.\n";
    }

For other ideas, you could chomp and then test length, or else test for not matching non-whitespace: $line !~ /\S/. Each suggestion accomodates a little different notion of which lines are considered blank.

You probably mean to print whole lines, rather than just what you captured ($1).

[/dev/trash]

After posting my question, I did one more search and came up with this reply to a question: Re: multi-line regex match quest It works to a point but I get this:

Use of uninitialized value in pattern match (m//) at parse.pl line 16,
+ <$fh> line 731.

[Happy-the-monk]

Use of uninitialized value in pattern match (m//) at parse.pl line 16, <$fh> line 731

A warning that tells you the variable you perform a pattern match was empty at the point given
(line 16 in your code and line 731 in the file you're reading from.)

[/dev/trash]

I am confused then. I am getting that warning for a LOT of the lines in the text file.