On 6/28/05, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
> Can anyone help me with this match:
[snip]
> for (;<FH>;)
> {
> if (/^-{5,}(\w+)/ig) {
> print $_;
>
> }
> $lc++;
> }
[snip]
This says "if the line matches five dashes and at least one word
character (which you are capturing for some reason), then print the
line."
What you want is the exact opposite:
while (<FH>) {
print $_ unless /^-{5,}/ ;
}
And use while instead of the awkward "for (;<>;)" construction; this
is what it's there for.
-- jay
--------------------
daggerquill [at] gmail [dot] com
http://www.tuaw.com
http://www.dpguru.com
http://www.engatiki.org
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
