なっく日報

技術やら生活やらのメモ

最近のPerlが絵文字と相性が良い件

最近ちょろっとPerlを触った際に、何気に絵文字が出力しやすかったという話です。

v5.16から

perldoc.jp

にあるように、use charnames;なしで、perl -E 'say "\N{BIRD}"'で🐦が出るようになってました。

出力できる文字は?

github.com

を参考に

#!/usr/bin/env perl
use v5.16;
binmode STDOUT, ":utf8";
for my $line ( split /\n/, require "unicore/Name.pl" ) {
    my ( $hex, $name ) = split /\t/, $line;
    my $char = join "", map { chr hex $_ } split / /, $hex;
    say "$char\t$name";
}

とやれば、

f:id:nakimura:20160323192632p:plain

こんな感じでずらーっと出てきます。

なんかに使えるかもということで、共有でした。