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

【问题标题】：How do I underline text in Perl Linux?如何在 Perl Linux 中为文本添加下划线？
【发布时间】：2011-04-13 13:50:26
【问题描述】：

有没有办法在文本下划线是 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');

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

【问题讨论】：

标签： perl text underline

【解决方案1】：

这可能与变量作用域和启用严格模式有关，而不是您想要实现的目标。在代码中添加“我的”会改变什么吗？

#!/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');

【讨论】：

您的部分答案是正确的。我错过了“我的”，但即使在修复之后仍然没有出现。请参阅下面我对问题的回答。
另一部分是Term::ANSIColor是美国人写的，函数拼写为colored，而不是coloured。我已经在你的回答中修正了它。

【解决方案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";

感谢代码建议！

【讨论】：

虽然这可行，但我认为colored 函数更具可读性。您的问题（除了缺少的my）是您使用了英式拼写而不是美式拼写。
是的，我将代码更改为有色（$text，'bold underline blue'），可以将其制成变量并轻松打印。