无法从 pod2usage() 打印斜体文本

Question

我正在尝试使用 pod2usage() 将 Pod 文本输出到终端。它在大多数情况下都可以正常工作，除了使用 Pod 格式化语法 I<text> 格式化为斜体的文本。在这种情况下，我希望文本打印时带有下划线（这是直接使用 Pod::Text::Termcap 时的工作方式）。例如（prog.pl）：

use strict;
use warnings;

use Getopt::Long qw(GetOptions);
BEGIN { $Pod::Usage::Formatter = 'Pod::Text::Termcap'; }
use Pod::Usage qw(pod2usage);

case1_use_termcap_directly();
case2_use_termcap_indirectly();

sub case2_use_termcap_indirectly {
    GetOptions(help => \my $help, test => \my $test);
    if ( $help ) {
        pod2usage(
            -message => "",
            -verbose => 2,
            -output  => \*STDERR
        );
    }
}

sub case1_use_termcap_directly {
    my $parser = Pod::Text::Termcap->new();
    $parser->output_string( \my $out_str );
    my $pod_str = do { local $/; <DATA> };
    $parser->parse_string_document( $pod_str );
    print $out_str;
}    
__DATA__

=head1 SYNOPSIS

prog [OPTIONS]

=head1 OPTIONS

=over 4

=item --help

Print this summary.

=item B<--test>=I<value>

Testing C<Pod::Text::Termcap>

=back

=head1 DESCRIPTION

A test program

运行prog.pl --help的输出是：

请注意，当直接使用 Pod::Text::Termcap 时，文本 "value" 带有下划线，但从 pod2usage() 间接打印时不带下划线。

注意：我使用的是 Ubuntu 15.10。这在 Ubuntu 14.10 上运行良好，所以我预计在升级 Perl 模块时会引入问题。

Answer 1

传统上（即 1990 年代之前）终端不能使用斜体。大多数 nroff/man/etc... 工具流程都没有设置来处理它。此外，您自己的终端可能无法自行应对。

您可以通过尝试来测试您的终端本身

$ echo -e "\e[3mitalics?\e[m"

并查看结果是否以斜体显示。如果没有，那你的终端肯定做不到。