synopsisのloopsにLoop iterators are partially supported.とあったのでmemo。 [% FOREACH item IN arrayref %] [%- IF loop.is_first -%] <first> [%- END -%] * [% loop.index %] * [% loop.count # loop.index + 1 %] * [% loop.body # alias to arrayref %] * </first>…

CPANモジュールにData::Pageってモジュールがあります。 kazeburoさん作のData::Page::Navigationでより便利に使えます。これをベースにページング周りをちょろっとつくってみたときのメモ。なんかいいページング関連のモジュールあれば使いたいですが、、、…

$ perl -Mモジュール名 -e 'print $モジュール名::VERSION,"\n"'

http://deps.cpantesters.org再帰的にいろいろ調べてくれる。便利。

perl -e 'print "@INC"'