こんにちは！金曜日の天使だったacotieと申します。今の職業は猛獣使いをしている為、絶賛Perl勉強中です＞＜

はじめに

まず、冒頭からアダルティな文字列が出てきます。苦手な人は戻って違うページを見て下さい。

世の中にはalias acotie="rm -rf ./*"などと設定されているすばらしい常識人もいらっしゃるようなので

見習って癒し系aliasを作ってみました。

インストール

Acme::Oppaiモジュールのインストール

sudo cpan -i Acme::Oppai

.bashrcに追記

alias yappo="perl -MAcme::Oppai -e 'print Acme::Oppai->oppai('your')->oppai('soul')->oppai('message')->oppai;';"

$ source ~/.bashrc
$ yappo

　 _ 　∩
(　゜∀゜)彡　your


(　゜∀゜)彡　soul
　⊂彡
　 _ 　∩
(　゜∀゜)彡　message


(　゜∀゜)彡　おっぱい!
　⊂彡

余談ですが、Acme::Oppai-0.03よりnew()時にdefaultオプションが設定できるようになっていました。

default => 'default'の場合

perl -MAcme::Oppai -e 'print Acme::Oppai->new(default => 'default')->oppai';

　 _ 　∩
(　゜∀゜)彡　おっぱい!おっぱい!
　⊂彡

default => 'up'の場合

perl -MAcme::Oppai -e 'print Acme::Oppai->new(default => 'up')->oppai->oppai->oppai';

　 _ 　∩
(　゜∀゜)彡　おっぱい!

default => 'down'の場合

perl -MAcme::Oppai -e 'print Acme::Oppai->new(default => 'down')->oppai->oppai->oppai';

(　゜∀゜)彡　おっぱい!
　⊂彡

文字を入れることもできます！

perl -MAcme::Oppai -e 'print Acme::Oppai->Oppai("Perl")->Oppai("Advent Calendar")->Oppai("2009!")';

　　　 _ 　∩
　　(　゜∀゜)彡　Perl
　　(　 　　|　
　 　|　　　|　
　 　し ⌒Ｊ
　　　 _ 　
　　(　゜∀゜)　　Advent Calendar
　　(　 ⊂彡
　 　|　　　|　
　 　し ⌒Ｊ
　　　 _ 　∩
　　(　゜∀゜)彡　2009!
　　(　 　　|　
　 　|　　　|　
　 　し ⌒Ｊ

まとめ

Oppaiメソッド名の最初の文字を大文字にすると大きいAA、小文字だと小さいAAに変更することができます。

ストレスが溜まりやすい現代社会に、日常生活の癒しとしてAAを導入されてみてはいかがでしょうか。

明日は、Perl業界の最速レポーターなhirataraさんです！是非お楽しみに！