如何在Perl Linux中对文本加下划线？

Question

有没有办法强调文本是perl输出脚本？ 我已经从多个来源阅读过，但是脚本中的文字不能带有下划线。

输出错误：全局符号“ $ finalAddition”在C：\\ Documents and Settings \\ PCS \\ Desktop \\ Perl Scripts \\ script.pl第7行需要显式的软件包名称。

脚本代码：

#!/usr/bin/perl

use warnings;
use strict;
use Term::ANSIColor;

$finalAddition = 8;

print "\n\nThe Final Number after addtion would be ".coloured($finalAddition, 'bold 
underline');

请对此提供一些建议。 谢谢。

Answer 1

这可能与变量作用域和启用严格模式有关，而不是您试图实现的目标。 在代码中添加“ my”是否会发生任何变化？

#!/usr/bin/perl

use warnings;
use strict;
use Term::ANSIColor;

my $finalAddition = 8;

print "\n\nThe Final Number after addition would be " .
      colored($finalAddition, 'bold underline');

Answer 2

经过几轮测试并几乎砸碎了屏幕，答案实际上非常简单……[编辑]更好的新代码！

#!/usr/bin/perl

use warnings;
use strict;
use Term::ANSIColor;

my $totalinput = $userinput * $userinput2;

my $coloredText = colored($totalinput, 'bold underline blue');

print "\n\nThe final answer to the question is: $coloredText\n\n";

感谢您的代码建议！