NCeans ile Unicode nasıl yazdırılır?

Question

Bu

�~X� 

nasıl yerine unicode ☺ alabilir yazdırır?

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

Sizinle aynı şeyi alıyordum - yalnızca yerel ayarı ayarlamanız gerekiyor;

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

Bu, yüzüme ve ekrana bir gülümseme katıyor. ☺