Mojolicious::Liteでカレントディレクトリを取得する

Tweet

CGI::Application時代、CGIやmod_perl環境でスクリプトが稼働しているディレクトリを取得するのに、以下のようにしていました。

use File::Spec;
use FindBin::Real;
 
my $script_dir = FindBin::Real::Bin();
my $db_path = File::Spec->catdir ( $script_dir, 'past.db' );
my $pastlog = File::Spec->catdir ( $script_dir, 'pastlog')

それで、Mojolicious::Liteの場合は、このように書けます。

use Mojolicious::Lite;
my $db_path = app->home->rel_file('past.db');
my $pastlog = app->home->rel_dir('pastlog')

Mojolicious::Liteにスクリプト実行のカレントディレクトリ取得は既に組み込まれているのですね。

2011.11.13 23:00 投稿　大野 義貴 [Perl] | 固定リンク |