Dear #Perl community, I am calling out for your help. Please review the following code, then help me understand why POPCOLOR on line 40 is resetting both the color and the underline: http://ae7.st/p/99. You can test this with the following string:
2012-04-10 07:09 -!- "8PROBLEM - ms04 /mail is WARNING: DISK WARNING [4878476 kB (2%) free on /dev/sdb1]")
The full string should be yellow, with only the hostname "ms04" underlined. The hostname does get underlined, but then not only is the underline removed, but the yellow color as well.
Help?
2012-04-10 07:09 -!- "8PROBLEM - ms04 /mail is WARNING: DISK WARNING [4878476 kB (2%) free on /dev/sdb1]")
The full string should be yellow, with only the hostname "ms04" underlined. The hostname does get underlined, but then not only is the underline removed, but the yellow color as well.
Help?
You are missing some backslashes (assuming the code wasn't butchered in the pastebin). http://ae7.st/p/81Apr 10, 2012
For some reason I still don't understand (especially the RESET), this seems to work:
$line =~ s/(\d+-\d+ \d+:\d+)\s+([\.[:alnum:]-]+)/"$1 ".LOCALCOLOR UNDERLINE $2.RESET/e;Apr 10, 2012
Add a comment...