regex - 在 perl 中为日志输出(stdout)着色

Question

抱歉打错了
我有一个这样的日志文件:

mynum[85295365] | yournum[3201410] | mymessage[4 ????? 4 off] | MSGLen[1]

我会像这样给输出着色

mynum == foreground blue  
yournum == foreground yellow  
and mymessage == foreground green.

我的消息着色有问题。
我尝试了以下代码:

if($currentLine=~m/mymessage\[([\w+\d+\S]+){1,}\]/){  
$mymessage=$1;  
$outM="$mymessage";  
$currentLine=~s/mymessage\[([\w+\d+\S]+){1,}\]/mymessage[$cg$outM$crs]/g;}

并没有结果没有。
帮帮我:(((((

Answer 1

使用Term::ANSIColor CPAN 模块。它允许您使用 ANSI 转义序列为屏幕输出着色