Thanks to all that helped with this problem, and thanks especially to
RandyS as he hit the nail on the head. Here is the final working code
block below.
while (<LOGFILE>) {
chop $_ ;
if( (/JUNIPER/) || (/REDBACK/) ){
print DSL $_ . "\n";
} else {
if ($_ =~ (/([^@,:"[:print:]\/])/) ) {
print ERROR $_ . "\n";
next;
}
print DIALUP $_ . "\n";
}
}
Chris Hood
Investigator Verizon Global Security Operations Center
Email: [EMAIL PROTECTED]
Desk: 972.399.5900
Verizon Proprietary
NOTICE - This message and any attached files may contain information
that is confidential and/or subject of legal privilege intended only for
the use by the intended recipient. If you are not the intended
recipient or the person responsible for delivering the message to the
intended recipient, be advised that you have received this message in
error and that any dissemination, copying or use of this message or
attachment is strictly forbidden, as is the disclosure of the
information therein. If you have received this message in error please
notify the sender immediately and delete the message.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
