Jak wydrukować Unicode za pomocą programu NCurses?

Question

Drukuje

�~X� 

Jak mogę uzyskać Unicode ☺ zamiast?

#!/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

Otrzymałem to samo co ty - okazało się potrzebne tylko do ustawienia lokalizacji;

#!/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; 

To wywołuje uśmiech na mojej twarzy ... i ekranie. ☺