#coderepos で、「怪しい名前空間w」と言われてしまいましたが(^^;;
Util系のモジュールがPerlにいくつかあって、便利なんだけど、紛らわしいというか、覚えてなくて、毎度調べるみたいなことがあります。
たとえば、List::UtilとList::MoreUtils。
「uniq関数どっちやったけ...?」
みたいな。そんな、わずらわしさを解消するために、Util::Any というものを作ってみました。
まとめるだけじゃ芸が無いので、まとめるモジュールを自作しやすいようにしてみました。
CPAN
http://search.cpan.org/dist/Util-Any
CodeRepos
http://coderepos.org/share/browser/lang/perl/Util-Any/trunk/
使い方は非常に簡単。
use Util::Any qw/list/;
とすれば、List::MoreUtils, List::Util のすべての関数がimportされる。
関数を選びたければ、
use Util::Any {list => ['any', 'uniq']};
のようにしてやれば良いだけ。
他にも、Scalar::UtilとHash::Utilが使えますんで、
use Util::Any qw/scalar hash/;
のようにも使えます。面倒だ、全部よこせというときは、
use Util::Any qw/all/;
で、OK。
もう一つの使い方として、自分好みのUtiモジュールを作ることができます。
継承して、$Utils変数を定義するだけです。
package Util::Yours; use base qw/Util::Any/; use Clone qw/clone/; our $Utils = clone $Util::Any::Utils; # clone してください push @{$Utils->{string} ||= []}, qw/String::CamelCase/;
のようにしてやれば、
use Util::Yours qw/string/; camelize("hoge_fuga");
のように、指定されたモジュールからimportできます。
上記のstringのように、list, scalar, hash の種類は自由に足せます(ハッシュのキーは小文字限定)。
たとえば、debug という名前にして、debug系のUtilを突っ込めるようにしてもいいかなぁとか。
※allだけは、特殊ですが
関数名衝突したら、どうすんねん。という話もありますが、prefixつけることができます。
use Util::Any qw/list/, {prefix => 1};
のようにしますと、関数名の前に、list_ というprefixがつきます。
list_uniq(1,1,2,2,3,3,3);
みたいな感じになるわけです。
種類ごとのprefixじゃ、足りない場合もあるでしょうから、モジュールごとのprefixもつけることができます。
package Util::Yours; use base qw/Util::Any/; our %Utils = %Util::Any::Utils; push @{$Utils->{list}}, ['Your::Favorite::Util' => 'your_'];
のように、クラス名のスカラの変わりに、[クラス名 => 'prefix_']を指定します。コードでは、
use Util::Yours qw/list/, {module_prefix => 1}; your_util_function(...);
みたいに呼べるようになります。
ちなみに、Util::Any自体は、指定されたモジュールをrequireして、呼び出し側に、ExportToを使ってexportしてやるだけなので、$Utilsに登録してあるモジュールを全部読み込んでいたり、全関数をUtil::Anyにimportしていたりってことはないです。
最後に、開発動機その2。
PHPとか見ると、便利関数が揃っているようです(賛否色々ありそうですけど)。そういうのをPerlで集めようと思った場合、CPANで個別にインストール、そして、use を羅列...っていうのは、ちょっと敷居が高いというか、面倒というか。
そのために、Util::Anyを使って、Util系モジュールと種類の整理を行ってやれば、Util系関数を使うのが結構楽になるかも、とか思ったりしました。
