どんぞこ日誌

* [Perl] 5分で分かる Acmeモジュールを知らない人がAcmeモジュールの便利さを学べる記事を書いたよ

Acmeモジュールを知らない人にAcmeモジュールを話して欲しいと言われたことはないけど日誌書きました。
難しい話は抜きにしてAcmeモジュールはuseで呼び出せば動きます。Perlが動くサーバーならなんとかなります。

コピーライトの西暦を自動更新

Acme::Currentを使えばページフッタの西暦も自動更新します。

 use Acme::Current;
 print qq/Copyright (c) 20010-$Acme::Current::YEAR Acme inc. All Rights Reserved./;

他人のサイトの内容を読み込む

ジャックバウアーに関するデータをチェックして何かするときなどに便利。

 use Acme::24;
 print Acme::24->random_jackbauer_fact();

Perlの部品を読み込む

Acme::Inline::PERLを使えばPerlスクリプト内にPerlコードを埋め込むことができます。

 use Inline PERL;
 
 greeting("World");
 
 __PERL__
 sub greeting {
     my $foo = shift;
     print "Hello, $foo\n";
 }

複数のメッセージをランダムに表示

 use Acme::Magic8Ball;
 ask( '質問' ); # 20メッセージ中1つを返す

指定した月のカレンダーガールを出力

少し長いですが、2011年1月のPlayboyのカレンダーガールを出力します。

 use Acme::Playmate;
 my $mate = Acme::Playmate->new(2011, 1);
 print $mate->name;

以上のように結構便利なものがあります。コピーして貼りつけても大体のサーバーで（該当Acmeモジュールをインストールしていれば）動く気がしますのでどうぞ。本当はサーバーで動かす前にこんなコードを使う自分を見つめ直す方が良いんですけど、興味のある方はぜひ以下の記事をご覧ください。

元ネタは
5分で分かる PHP を知らない人が PHP の便利さを学べる記事を書いたよ
5分で分かる JavaScript を知らない人が JavaScript の便利さを学べる記事を書いたよ
5分でわかる Ruby を知らない人が Ruby の便利さを学べる記事をかいたよ