view release on metacpan or  search on metacpan

author/en2kana.csv  view on Meta::CPAN

lead,リード
leader,リーダー
leaf,リーフ
learn,ラーン
least,リースト
leather,レザー
leave,リーブ
left,レフト
leg,レッグ
lemon,レモン
length,レングス
less,レス
lesson,レッスン
let,レット
letter,レター
level,レベル
library,ライブラリー
lie,ライ
life,ライフ
lift,リフト
light,ライト

author/ja2kana.pl  view on Meta::CPAN

    s#/man/person/#/human/#;
    s#/say/tell/state/##;
     
    s#/[\d\s\W]+/#/#g;
    s#//#/#g;
    s#/$##;
    
    my @en = split '/';
    my $ja = shift @en;

#     next if length $ja <= 1;
    next if $ja =~ /^\p{InKatakana}+$/;
    next if $ja !~ /\p{InHiragana}|\p{InCJKUnifiedIdeographs}/;
    
    next if $ja eq 'いく';
    next if $ja eq 'そう';
    next if $ja eq 'くる';
    next if $ja eq '来る';
    next if $ja eq 'みる';
    next if $ja eq 'いる';
    next if $ja eq 'あの';