Acme-Lou

 view release on metacpan or  search on metacpan

LICENSE  view on Meta::CPAN

MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
REPAIR OR CORRECTION.

  10. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.

                     END OF TERMS AND CONDITIONS

        Appendix: How to Apply These Terms to Your New Programs

  If you develop a new program, and you want it to be of the greatest
possible use to humanity, the best way to achieve this is to make it

author/loucsv.pl  view on Meta::CPAN

while (my $line = <>) {
    chomp $line;
    $line = decode('euc-jp', $line);

    my $lou = lou($line);
    next if not defined $lou;

    print $lou;
}

print <DATA>;

exit;

sub lou {
    my $feature = shift or return;

    # 表層形,左文脈ID,右文脈ID,コスト,品詞,品詞細分類1,品詞細分類2,品詞細分類3,活用型,活用形,原形,読み,発音
    my ($c, $d, $e, $cost, $pos, $f, $g, $h, $type, $form, $lemma, $i, $j) = split /,/, $feature;
    
    my $kana = $ja2kana->{$lemma};

author/loucsv.pl  view on Meta::CPAN

        $lou =~ s/\s//g;
        
        next if $lou =~ /^[a-z]+$/i; 

        $dic->{$ja} = $lou; 
    }

    $dic;
}

__DATA__
ルー語,1,1,1200,その他,一般,*,*,*,*,*,*,*,ルー語,
元気,1,1,1200,その他,一般,*,*,*,*,*,*,*,ファイン,
一年,1,1,1200,その他,一般,*,*,*,*,*,*,*,ワンイヤー,
よいお年,1,1,1200,その他,一般,*,*,*,*,*,*,*,グッドイヤー,
良いお年,1,1,1200,その他,一般,*,*,*,*,*,*,*,グッドイヤー,
新年,1,1,1200,その他,一般,*,*,*,*,*,*,*,ニューイヤー,
お願いします,1,1,1200,その他,一般,*,*,*,*,*,*,*,プリーズ,
水臭い,1,1,1200,その他,一般,*,*,*,*,*,*,*,ウォーター臭い,
犬も歩けば棒に当たる,1,1,1200,その他,一般,*,*,*,*,*,*,*,犬もウォークすればポールにヒットする,
泣きっ面に蜂,1,1,1200,その他,一般,*,*,*,*,*,*,*,泣きっ面にビー,

t/01_translate.t  view on Meta::CPAN

run {
    my $block = shift;
    is(
        $lou->translate($block->input),
        $block->expected,
        $block->name
    );
};

__DATA__

=== basic 
--- input
今年もよろしくお願いいたします。
--- expected 
ディスイヤーもよろしくプリーズいたします。

=== basic 
--- input
ルーと一緒です。