这会打印出来
�~X�
我该如何获取Unicode编码的
☺
图标呢?#!/usr/bin/env perl6
use v6;
use NCurses;
my $win = initscr;
my Str $s = "\x[263a]";
printw( $s );
nc_refresh;
while getch() < 0 {};
endwin;
#!/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;
LANG=C perl6 -e 'use NCurses; printw( "\x[263a]");'
时,我无法帮助你,因为我得到了一个核心转储。 - neuhaus