Acme-AjiFry

 view release on metacpan or  search on metacpan

eg/rewrite.pl  view on Meta::CPAN

#!/usr/bin/env perl

use 5.12.4;
use strict;
use warnings;
use utf8;

use FindBin;
use lib ("$FindBin::Bin/../lib");
use Acme::AjiFry::Perl;

アジ食え食えアジお刺身フライむむ･･･お刺身むむ･･･アジアジフライ中川"岡星むむ･･･食えアジフライお刺身ドボドボお刺身ドボドボお刺身アジフライ\お刺身むむ･･･";
アジ食え食えアジお刺身フライむむ･･･お刺身むむ･･･アジアジフライ中川"雄山食え食えフライお刺身フライむむ･･･アジむむ･･･中川フライむむ･･･アジむむ･･･\お刺èº...
アジ食え食えアジお刺身フライむむ･･･お刺身むむ･･･アジアジフライ中川"山岡ドボドボ食えお刺身お刺身お刺身食えアジフライ::山岡ドボドボフライアジフライフライむむ･･･å...
アジ食え食えアジお刺身フライむむ･･･お刺身むむ･･･アジアジフライ中川"ああアジフライ食え食え食えお刺身お刺身アジ食え食えお刺身ドボドボ食えアジフライ中川山岡むむ･･...

eg/rewrite.pl.orig  view on Meta::CPAN

#!/usr/bin/env perl

use 5.12.4;
use strict;
use warnings;
use utf8;

use FindBin;
use lib ("$FindBin::Bin/../lib");
use Acme::AjiFry::Perl;

アジ食え食えアジお刺身フライむむ･･･お刺身むむ･･･アジアジフライ中川"岡星むむ･･･食えアジフライお刺身ドボドボお刺身ドボドボお刺身アジフライ\お刺身むむ･･･";
アジ食え食えアジお刺身フライむむ･･･お刺身むむ･･･アジアジフライ中川"雄山食え食えフライお刺身フライむむ･･･アジむむ･･･中川フライむむ･･･アジむむ･･･\お刺èº...
アジ食え食えアジお刺身フライむむ･･･お刺身むむ･･･アジアジフライ中川"山岡ドボドボ食えお刺身お刺身お刺身食えアジフライ::山岡ドボドボフライアジフライフライむむ･･･å...
アジ食え食えアジお刺身フライむむ･･･お刺身むむ･･･アジアジフライ中川"ああアジフライ食え食え食えお刺身お刺身アジ食え食えお刺身ドボドボ食えアジフライ中川山岡むむ･･...

eg/sample.pl  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;

use FindBin;
use lib ("$FindBin::Bin/../lib");
use Acme::AjiFry;
use Acme::AjiFry::EN;

my $ajifry    = Acme::AjiFry->new();
my $ajifry_en = Acme::AjiFry::EN->new();

print $ajifry->translate_to_ajifry('おさしみ')."\n";
print $ajifry->translate_from_ajifry('食えアジフライお刺身食え食えお刺身ドボドボ岡星ドボドボ')."\n";

print $ajifry_en->translate_to_ajifry('012abcABC!!!')."\n";

t/rewrite.orig  view on Meta::CPAN

use utf8;
use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../lib";

use Acme::AjiFry::Perl;

print 'hello';

t/rewrite.translated  view on Meta::CPAN

use utf8;
use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../lib";

use Acme::AjiFry::Perl;

アジ食え食えアジお刺身フライむむ･･･お刺身むむ･･･アジアジフライ中川'フライお刺身食えアジフライお刺身ドボドボお刺身ドボドボお刺身アジフライ';