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";

感谢您提供代码建议！

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

2 个答案: