perl - 如何在 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');