中国語の繁体字・簡体字へ変換する

tradsimp.pl

use utf8;
use Unicode::Unihan;
use feature qw/say/;
binmode STDOUT, ":utf8";

my $original = "楽";
say $original; # 楽

my $uh = Unicode::Unihan->new;
my $traditional = $uh->ZVariant($original);
$traditional = unescape($traditional);
say $traditional; # 樂

my $simplified = $uh->SimplifiedVariant($traditional);
$simplified = unescape($simplified);
say $simplified; # 乐

sub unescape {
    my $char = shift;
    $char =~ m!U\+([0-9a-fA-F]{4})!;
    return chr(hex($1));
}