是否可以使用Curses打印到STDERR而不是STDOUT？

Question

如何才能打印“你好，世界！\ n”（使用Curses）至STDERR而不是STDOUT？

#!/usr/bin/env perl 
use warnings; 
use 5.12.0; 
use Curses; 

initscr(); 

addstr(10, 0, "Hello, World!\n"); 
refresh(); 

sleep 3; 
endwin(); 

Answer 1

从未使用过诅咒，但假定这将是一个参数initscr，我做了man initscr，这些都给：

输出到多个终端应该使用 newterm程序为每个终端的程序而不是 initscr。 [...]

所以你喜欢的东西：

#!/usr/bin/env perl 
use strict; 
use warnings; 
use Curses; 

open(my $stderr_term_in, '<', '/dev/null') or die $!; 

my $stdout_scr = newterm($ENV{TERM}, \*STDOUT, \*STDIN); 
my $stderr_scr = newterm($ENV{TERM}, \*STDERR, $stderr_term_in); 

set_term($stdout_scr); 
addstr(10, 0, "Hello, STDOUT!\n"); 
refresh(); 

set_term($stderr_scr); 
addstr(10, 0, "Hello, STDERR!\n"); 
refresh(); 

set_term($stdout_scr); 
endwin(); 
delscreen($stdout_scr); 

set_term($stderr_scr); 
endwin(); 
delscreen($stderr_scr);