Question

我想在此处将粗体hi!打印到STDERR。这可能是Term::Screen吗？

#!/usr/bin/env perl 
use warnings;
use 5.12.0;
use utf8;
binmode STDOUT, ':utf8';
binmode STDERR, ':utf8';
use Term::Screen;

my $scr = new Term::Screen;
unless ( $scr ) { die " Something's wrong \n"; }
$scr->clrscr();
$scr->at(5,10)->bold()->puts("hi!")->normal();
$scr->at(11,0);

Answer 1

Term :: Screen，查看其源代码，硬编码为*STDOUT

E.g。您在来源中呼叫的sub at{}具有以下内容：

$this->term()->Tgoto( 'cm', $c, $r, *STDOUT );

因此，您需要明确地将所有STDOUT重定向到STDERR：

open(my $backup_stdout, ">&STDOUT");
close(STDOUT);
open(STDOUT, ">&STDERR"); # This affects ALL of spawned child processes!
# *STDOUT = *STDERR; # This does the same but ONLY affects your process

我怎么能用Term :: Screen打印到STDERR？

1 个答案: