Acme::Yomeru

tag perl acme joke

こんちには、みさなん、bayashi です。
さくむてかなぜどひいていですないか。
おかだらはくれれぐもおだいじに。

げきんがあればこーどもかける！
げきんがあれば AKB48もうたえる！

さて、あれ、なだんかへんすでね。
あれれ、よくわせかまりんが、このぶょんしう、よめていすまか？
よめますね。なぜかよすまめね。
かなりびみかょうもしせんまれが、よめすまね。
よなめいひとは、がばっんてよんでくさだい。

はい、そでうす。いちじわいだになった「なぜかよめるぶょしんう」です。
きうょは、このようななぜかよめるぶうしょんをせせいいする
もじゅーるをしかょういします。
もう、かんのよいかたはきづいていかるとおいすもまが、
いっぱつねたのなで、ほとんうに、これいじょうなにもありせまん。
うひー＞＜

[Acme::Yomeru]

    #!/usr/bin/perl
    use strict;
    use warnings;
    use utf8;

    use Acme::Yomeru;
    use Acme::Yomeru::Parser::TextMeCab;

    my $yomeru = Acme::Yomeru->new(
        text => 'これは、奇妙な日本語フィルタだよ。',
    );

    print $yomeru->cambridgize;

基本は Text::MeCab を利用して形態素解析してコンバートしますが、以下のように、Yahoo API を利用する方法もあります。
しかし、そもそも Text::MeCab がないとインストールさえままならないんじゃないかどうかはよく確認していませんが、なんだかそれ風なつくりを目指していた時期がありました。

    use Acme::Yomeru;
    use Acme::Yomeru::Parser::YahooAPI;

    my $yomeru = Acme::Yomeru->new(
        text   => 'これは、奇妙な日本語フィルタだよ。',
        parser => Acme::Yomeru::Parser::YahooAPI->new(
            api_key => 'YOUR_APP_ID',
        ),
    );

    print $yomeru->cambridgize;

フィルタ部分は一目瞭然
無駄に Moose で書かれています
テスト充実させたい → まさかの PODでコメントアウト状態

Acme もじゅーるだすいき！！

というわけで、明日は、、あれ、明日は、誰なんだ？誰か、誰かが書くでしょう！