Acme::DragonBall - つっかもうぜ！ドラ○ンボール！

#perl #acme

koji**(koji_magi)

2011-12-10

オッス！オラkoji_magi！
過去日付の記事を書くと誰かとコンフリクトしそうで、オラわくわくしてきたぞ！

はい、というわけで今回も20分で作ってみました。ネタに時代を感じるのは察してください。
ドラゴンボールといえば、ドラゴンレーダーですよね。
そんでもってボールは星の数が一から七まであります。
そこで、テキスト中の*の数を数えてドラゴンボールにHitしたらsayしてくれる
radarを作りました。

use strict;
use warnings;
use Acme::DragonBall qw(radar);

radar("asdf*hdshaf*osd**hfa"); # '四星球みっけ！'

全部の球を集めるとシェンロンも呼べます。

use strict;
use warnings;
use Acme::DragonBall qw(radar);

radar("*" x 28); # '★ ★ ★  ！！！いでよ、神龍！！！！ ★ ★ ★ ★'

ちなみにドラゴンボールに無い星数だと、懐かしの台詞や単語がランダムに飛び出します。

use strict;
use warnings;
use Acme::DragonBall qw(radar);

radar("red sousui"); # 'レッドリボン軍だ！'

さて、今回のAcmeは如何でしたでしょうか？
参加者さんが少なめで、Acmeトラックも対ベジータ戦の悟空なみに苦戦中です。
Acmeトラックはいつでも貴方の参戦をお待ちしております。

みんな、オラにネタ元気を分けてくれ！