Perlの自分自身のフルパス取得

メモ的な感じで。
仕事で、Perlのcron実行こけてた原因が、実行する場所と気が付き。
自分自身のディレクトリを取得するソースを続きにメモメモ。
普段perlは使わないが、何かで使うかわからないので。て、言い分けること無いかｗ

ググってソース切り貼りなので、ごちゃっとしてる。
もうちょっとスマートに書きたいところ。


-----------------------------------------------------------------------------
#!/usr/bin/perl

# フルパスの取得
$_ = $0;
$pwd=`pwd`; chop $pwd;
if ( -l $_ ){ $_ = readlink($_); }
s|^([^/])|$pwd/$1|;
1 while (s|[^/]+/\.\./||g);
s|\./||g;
use File::Basename;
my ( $base_name, $dir ) = fileparse( $_ );
print "$dir\n";
-----------------------------------------------------------------------------