2016-02-16 4 views
1

Я пытаюсь вывести текст Pod на терминал с помощью pod2usage(). Он отлично работает в большинстве случаев, за исключением текста, отформатированного как курсив, с использованием синтаксиса форматирования Pod I<text>. В этом случае я ожидаю, что текст будет напечатан подчеркнутым (так оно работает при непосредственном использовании Pod::Text::Termcap). Например (prog.pl):Невозможно напечатать курсивный текст из pod2usage()

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 является:

enter image description here

Обратите внимание, что текст "value" указывается при использовании Pod::Text::Termcap непосредственно, но не указывается при печати косвенно pod2usage().

Примечание: Я использую Ubuntu 15.10. Это отлично работает для Ubuntu 14.10, поэтому я ожидаю, что проблема возникла при обновлении модулей Perl.

ответ

0

Традиционно (т. Е. До 1990-х годов) терминалы не могли сделать курсив. Большая часть потока инструментов nroff/man/etc ... только не настроена для его обработки. Кроме того, ваш собственный терминал может не справиться сам.

Вы можете проверить сам ваш терминал, пытаясь

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

и увидеть, если результат выходит курсивом. Если нет, то ваш терминал определенно не сможет этого сделать.

+0

Да, согласитесь, я также подумал, что это было причиной того, что «Pod :: Text :: Termcap» подчеркивал текст вместо этого? Btw. Я использую gnome-terminal, и он может сделать курсив. Но я думаю, что меня не интересует эта функция (я просто хочу подчеркнуть текст) –

Смежные вопросы