无法从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的输出是：

请注意，直接使用"value"时，文字Pod::Text::Termcap会加下划线，但在pod2usage()间接打印时不会加下划线。

注意：我使用的是Ubuntu 15.10。这对Ubuntu 14.10很好用，所以我希望在升级Perl模块时引入问题。

Answer 1

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

您可以尝试

测试终端本身

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

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