Perl kanji processing.

suggest-two-kanjis.pl

#!/usr/bin/perl
# see: http://www.asahi-net.or.jp/~ax2s-kmtn/ref/unicode/cjku_klist.html

use strict;
use warnings;
use utf8;
binmode STDOUT, ':utf8';

# ほぼ Unicode 全漢字を集める
my ($start, $end) = (0x4E00, 0x9FAF);
my @kanjis;
for my $point ($start .. $end) {
    my $kanji = chr $point;
    push @kanjis, $kanji;
    # print "[$point] $kanji\n";
}

for (1..10) {
    my ($kanji1, $kanji2) = map { $kanjis[ int(rand @kanjis) ] } (1,2);
    print "元号は「${kanji1}${kanji2}」です！\n";
}

whole-kanji-list.pl

#!/usr/bin/perl
# Whole (?) kanji list.
# http://www.asahi-net.or.jp/~ax2s-kmtn/ref/unicode/cjku_klist.html

use strict;
use warnings;
use utf8;
binmode STDOUT, ':utf8';

my ($start, $end) = (0x4E00, 0x9FAF);

for my $point ($start .. $end) {
    print "[$point] " . chr($point) . "\n";
}