omoonのブログ

旅の思い出を写真とともに書いてみるか。

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';

以上、それでは仕事に戻ります。

参考)

*1:今作った