phpのdirname()関数をperlで使うには
みなさんこんばんは。「phpのあれ、perlでどうやるの?」のコーナー*1、今日はdirname()関数です。
これは、パス中のディレクトリ名の部分を返す関数なんですが、僕は、__FILE__との組み合わせで良く使います。
例えば、あるファイルと同じディレクトリにある別のファイルのフルパスを指定したい時なんかに、
<?php $file = dirname(__FILE__) . '/foo.php'; ?>
って感じで使います。開発サーバと本番サーバでディレクトリ構成が異なる場合なんかも、この方法でファイル指定をしておけばらくちんです。
で、これをperlでどうやるのか調べてみました。
File::Basenameでできるみたいですね。
use File::Basename my $file = dirname(__FILE__) . '/foo.pl';
以上、それでは仕事に戻ります。
参考)
- PHP: dirname - Manual
- File::Basename - Parse file paths into directory, filename and suffix. - metacpan.org
- http://mt.endeworks.jp/d-6/2005/12/filespec-and-cwd.html
*1:今作った