无法打印pod2usage()中的斜体文本

Question

我正在尝试使用pod2usage()将Pod文本输出到终端。它适用于大多数情况，除了使用Pod formatting语法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

传统上(即20世纪90年代之前)终端不能使用斜体。大多数nroff/man/等...工具流只是没有设置来处理它。此外，您自己的终端可能无法自行处理。

您可以通过以下方式测试终端本身：

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

看看结果是不是用斜体写的。如果不是，那么你的终端肯定不能做到这一点。