是否可以使用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);