Morning,
I am working on some code which will check for a line starting with any Perl Metacharacters, and precede it with a '/'.
Here is what i have thus far:
if ($LogLinePrefix =~ /[\^\$\+\*\?\.\|\(\)\{\}\\\[\]]/)
{
$LoglinePrefix =~ s/[\^\$\+\*\?\.\|\(\)\{\}\\\[\]]*/\\{$1}/g ;
}
Unfortunately, this isn't working. Can anyone make a suggestion?
Regards/Thanks
Chris McEwen
Sr. Configuration Management Analyst
Alcatel Canada Inc.
Office: 416.748.4424 ext 5015
mailto: [EMAIL PROTECTED]
_______________________________________________ ActivePerl mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
