Это печатает
�~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;
Это печатает
�~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;
LANG=C perl6 -e 'use NCurses; printw( "\x[263a]");'
, я получаю ядро. 26.02.2016 У меня было то же самое, что и у вас - оказывается, просто нужно было установить локаль;
#!/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;
Это вызывает у меня улыбку ... и экран. ☺