Perl

サブ嘔吐王者(sub AUTOLOAD)

Perlの仕事でDAO的なものを作る用事を振られた。 Bean的なものを作る際にアクセサをいちいち作るのが面倒なのでAUTOLOAD関数を使ってみた。初めて使ってみた。便利だった。凄く気に入ったので、「さぶおーとろーどスゲェよ!」と吹聴してまわった。これが昨…

カレントディレクトリとファイルの置いてあるディレクトリは違う

恥ずかしい話なんですが。 なんの気なしに同じディレクトリのPerlプログラムをrequireするためにこんなこと書いて失敗したんですよ。 use Cwd; $here = getopt(); require "${here}/wantuse.pl";まぁ、これ、PATH通しておけよ、という話はおいといてですね。…

Getopt::Longで、定義していない引数を捕捉する方法

最近PerlPerl言い出してますが、お仕事でPerlのコマンドラインツールを作ってるんですよ。 それで、引数を扱うときにGetopt::Longという便利なモジュールがあるのですが、こいつで定義していないオプションが指定された場合を上手く捕捉する方法を探すのにち…

Perlのmap関数ってこういうこと?をもうちょっとしっかり書いてみた

暇つぶしみたいなもんなんですが。 そのうちジェネリクスとか勉強がてらに使って書き直してみようかな。 public class PerlMap{ public static void main(String[] args){ Object[] objects = {"1","2","3","4","5"}; Object[] results = map( new Proc(){ p…