Acme::Shukugawa::Atom

サンプルコードを書きました。
引数にテキストファイルを指定すると、テキストファイル内の文字列を夙川アトム風に変換します。

#!/opt/local/bin/perl

use strict;
use warnings;
use Encode;
use Acme::Shukugawa::Atom;

while (<>) {
    chomp;
    my $shukugawa_str = Acme::Shukugawa::Atom->translate($_);
    print encode('UTF-8', "$shukugawa_str\n");
}

テキストファイルの内容は定番のやつです。

童話赤ずきんちゃん
昔々あるところに赤ずきんちゃんがいました
おばあさんの口はどうしておおきいの？
おばあさんの耳はどうしておおきいの？

実行します。

$ ./trans_shukugawa.cgi akazukin.txt
ワードーズキアカのチャンネー
カシムー々ルーアーコロトーにズキアカのチャンネーがマシイーた
チャンバーのチークーはどうしてカイデー？
チャンバーのミーミーはどうしてカイデー？

夙川風です。

そういえば、最近テレビで見ない・・・。