perl - 如何在 Perl 中打印此处文档中的粗体文本？

Question

我正在使用此处的文档为用户打印使用消息。有没有办法打印特定的单词 BOLD 类似于 unix 上的手册页。我在 Unix 上使用这个。有没有办法在此处的文档中使用 Term::ANSIColor(或其他方式？)？

Answer 1

1) 您可以简单地将 ANSI 代码包含到 Heredoc 中:

print <<EOD;
XXXX\033[1;30;40m YYYY\033[1;33;43m ZZZZ\033[0mRESET
EOD

2) Heredoc 对变量进行插值，因此如果您将 ANSI 颜色包含到变量中，它就可以工作。

my $v="xxxxx";
$var = "\nXXXX\033[1;30;40m YYYY\033[1;33;43mZZZZ\033[0mRESET\n";
print <<EOD;
$var
EOD

3) 在 #2 的基础上，您可以通过 Term::ANSIColor 的 color() 方法生成 ANSI 代码作为字符串，并在此处文档中使用包含该字符串的变量。抱歉，没有有效的示例，因为我没有安装 ANSIColor，但应该是显而易见的。

您可能希望将特定的 ANSI 代码存储在某个特定变量中，并将实际文本放入 heredoc 和 sprincle ANSI 代码变量中。