The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Acme-Lou-0.03
River stage zero No dependents
++
/ Acme::Lou

NAME

Acme::Lou - Let's together with Lou Ohshiba

SYNOPSIS

    use utf8;
    use Acme::Lou;
    
    my $lou = new Acme::Lou;
    
    my $text = "「美しい国、日本」";
    print $lou->translate($text); # 「ビューティフルな国、ジャパン」

    print $lou->translate($text, {
        lou_rate     =>  50,
        html_fx_rate => 100,
    })
    # 「美しい国、<FONT color=#003399>ジャパン</FONT>」

DESCRIPTION

Mr. Lou Ohshiba is a Japanese comedian. This module translates text or HTML into his style.

METHODS

$lou = Acme::Lou->new([ \%options ])
$lou = Acme::Lou->new([ %options ])

Creates an Acme::Lou object.

%options can take...

  • mecab_charset

    Your MeCab dictionary charset. Default is euc-jp. If you compiled mecab with utf-8,

        my $lou = new Acme::Lou( mecab_charset => 'utf-8' );

  • mecab_option

    Optional. Arguments for Text::MeCab instance.

        my $lou = new Acme::Lou({ 
        mecab_option => { dicdir => "/path/to/yourdicdir" },
    });

  • mecab

    You can set your own Text::MeCab instance, if you want. Optional.

  • format

  • is_html

  • lou_rate

  • html_fx_rate

    These are global options for $lou->translate() (See below).

    Defaults are

        format       => '%s',
    is_html      => 0,
    lou_rate     => 100,
    html_fx_rate => 0,
$lou->translate($text [, \%options ])

Return translated text in Lou Ohshiba style. translate() expect utf-8 byte or utf-8 flagged text, and it return utf-8 flaged text.

%options: (overwrite global options)

  • format

    Output format string for sprintf. Default is %s. It is taken as follows.

        sprintf(C<format>, "translated word", "original word")

    e.g.

        Default:
    $lou->translate("考えておく");
    # シンクアバウトしておく
     
    Idea 1: <ruby> tag
    $lou->translate("考えておく", { 
        format => '<ruby><rb>%s</rb><rp>(</rp><rt>%s</rt><rp>)</rp></ruby>',
    });
    # <ruby><rb>シンクアバウトし</rb><rp>(</rp><rt>考え</rt><rp>)</rp></ruby>ておく
     
    Idea 2: for English study (?!)
    $lou->translate("考えておく", { 
        format => '%2$s[%1$s]', # require perl v5.8
    });
    # 考え[シンクアバウトし]ておく

    format option was added by version 0.03.

  • is_html

    Optional. If $text is a HTML, you should set true. Acme::Lou makes a fine job with HTML::Parser mode. Default is false.

  • lou_rate

    Set percentage of translating. 100 means full translating, 0 means do nothing.

  • html_fx_rate

    Set percentage of HTML style decoration. Default is 0. When html_fx_rate is set, using HTML::Parser automatically. (don't need to set is_html)

If using HTML::Parser, translate() skips the text in <script> and <style> tag and attribute values.

And, html_fx_rate skips the text in <title> tag.

    my $html = <<'HTML';
    <html>
    <head>新年のごあいさつ</head>
    <body>
    <img src="foo.jpg" alt="新年" />
    今年もよろしく
    お願いいたします。
    </body>
    </html>
    HTML
    ;
     
    print $lou->translate($html, {
        lou_rate => 100, # translate all words that Acme::Lou knows.
        html_fx_rate => 100, # and decorate all words.
    });
      
    # <html>
    # <head>ニューイヤーのごあいさつ</head>
    # <body>
    # <img src="foo.jpg" alt="新年" />
    # <FONT color=#0000ff size=5>ディスイヤー</FONT>もよろしく
    # <FONT color=#df0029 size=6><STRONG>プリーズ</STRONG></FONT>いたします
    # </body>
    # </html>

HTML is not broken.

AUTHOR

Naoki Tomita <tomita@cpan.org>

Special thanks to Taku Kudo

LICENSE

This program is released under the following license: GPL

SEE ALSO

http://e8y.net/labs/lou_trans/, http://mecab.sourceforge.jp/, Text::MeCab