[Perl] 閑話休題 Acme::Oppai

Acme::Oppai
http://search.cpan.org/~yappo/Acme-Oppai-0.03/lib/Acme/Oppai.pm

なるモジュールが出ていたんで使ってみた。DOS窓出力用のつもりなので、UTF-8をデコードしている。

use Acme::Oppai;
use Jcode;
my $op = Acme::Oppai->new(default => 'default');
$str = $op->Oppai;
$s = shift(@$str);

my $j = Jcode->new($$s,'utf8');
print $j->h2z->sjis;

結果

　　　 _ 　∩
　　(　゜∀゜)彡　おっぱい!おっぱい!
　　(　 ⊂彡
　 　|　　　|　
　 　し ⌒Ｊ

あほや・・・。