ittanda-a to chitanda-l

chitanda-l.pl

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use Lingua::JA::Numbers;
use Lingua::JA::Alphabet::Yomi qw(alphabet2yomi);
use Lingua::JA::Moji qw(kata2hira);

binmode STDOUT, ':utf8';

for my $i (1 .. 1000) {
    my $c = chr(($i - 1) % 26 + 65);
    printf "%s反田%s\n", num2ja($i), kata2hira(alphabet2yomi($c));
}