Perl/codepiece/manupilate_INC_by_FindBin

• [ Prev ]
• [ Next ]
• [ Perl ]

• 以前、BEGINブロックとFile::Basenameを用いて@INCを操作して、useの探索ディレクトリを変更するcodepieceを書いた。
  • Perl/codepiece/manupilate_INC
• 今回は、http://d.hatena.ne.jp/naoya/20060423/1145788923 で見かけた、FindBinコアモジュールを利用するテクニックの簡単なcodepieceをメモしておく。
  • http://perldoc.perl.org/FindBin.html
• <= Perl 5.000? (*1)

• まずは動作確認。 FindBin01.pl

#!/usr/bin/perl
use strict;
use warnings;
use FindBin qw($Bin $Script $RealBin $RealScript);

print "Bin = ", $Bin, "\n";
print "Script = ", $Script, "\n";
print "RealBin = ", $RealBin, "\n";
print "RealScript = ", $RealScript, "\n";

• 出力

$ perl FindBin01.pl
Bin = C:/in_vitro/perl/core_modules
Script = FindBin01.pl
RealBin = C:/in_vitro/perl/core_modules
RealScript = FindBin01.pl

実際にuse libを操作してみる。

• use される test::Hoge パッケージ：./sample/lib/test/Hoge.pm

package test::Hoge;
use strict;
use warnings;
our $message = "Hello, test::Hoge!";

• ./sample/FindBin02.pl

#!/usr/bin/perl
use strict;
use warnings;
use File::Spec;
use FindBin;
use lib File::Spec->catdir($FindBin::Bin, "lib");

use test::Hoge;

print $test::Hoge::message, "\n";

• 出力

$ perl ./sample/FindBin02.pl
Hello, test::Hoge!

• ポイント：FindBinを使うと、PHPでのrealpath(dirname(__FILE__))や、basename(__FILE__) と同等な出力を取得できる。
• 実際に、そこからの相対パスを用いる場合、File::Spec->catdir()でシステムに合わせたパス文字列を生成し、設定している。
• いずれもPerlのコアモジュールであるのが有り難い。

• [ Prev ]
• [ Next ]
• [ Perl ]