2006-08-04 FindBin scriptの場所を返す。 use FindBin qw($Bin); use lib "$Bin/../lib"; 変数の種類は以下。 $Bin - path to bin directory from where script was invoked $Script - basename of script from which perl was invoked $RealBin - $Bin with all links resolved $RealScript - $Script with all links resolved http://search.cpan.org/~nwclark/perl-5.8.8/lib/FindBin.pm