NCursesでUnicodeを印刷するには？

Question

これは私が代わりにユニコード☺を得ることができる方法

�~X� 

を出力しますか？

#!/usr/bin/env perl6 
use v6; 
use NCurses; 

my $win = initscr; 
my Str $s = "\x[263a]"; 
printw($s); 
nc_refresh; 
while getch() < 0 {}; 
endwin; 

Answer 1

私はあなたと同じようになっていました。ロケールを設定するだけでした。

#!/usr/bin/env perl6 
use v6; 
use NCurses; 

use NativeCall; 
my int32 constant LC_ALL = 6;   # From locale.h 
my sub setlocale(int32, Str) returns Str is native(Str) { * } 

setlocale(LC_ALL, ""); 
my $win = initscr; 
my Str $s = "\x[263a]"; 
printw($s); 
nc_refresh; 
while getch() < 0 {}; 
endwin; 

これは私の顔に笑みを浮かべています...そして画面。 ☺