Re: Regex for logwatch report

[Randy W. Sims]

On 10/5/2004 10:36 PM, Randy W. Sims wrote:

while (defined( my $line = <INPUT> )) {
    if ( /-+ pam_unix Begin -+/ .. /-+ pam_unix End -+/ ) {
        # between beginning and end
    }
}

err, that was obviously not tested. Should be:

while (defined( my $line = <DATA> )) {
    if ( $line =~ /begin/ .. $line =~ /end/ ) {
        # between beginning and end
    }
}

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>