トップ «前の日記(■2011-01-04) 最新 次の日記(■2011-01-24)» 編集

どんぞこ日誌

2003|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|05|06|07|08|09|10|11|12|
2006|01|02|03|04|05|07|08|12|
2007|01|04|08|12|
2008|01|02|03|04|06|07|08|10|11|12|
2009|01|02|04|05|06|07|08|09|11|12|
2010|01|03|04|07|08|10|11|12|
2011|01|02|03|04|05|06|07|08|10|12|
2012|01|02|03|05|06|07|08|09|10|
2013|01|02|07|08|09|
2014|08|09|
2015|08|
2016|06|07|12|
2017|01|03|08|
2018|03|
2022|03|

同人関連(どんぞこ楽屋) | 旧い雑文   


■2011-01-06

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

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 の便利さを学べる記事をかいたよ

[]