Perlで実行しているスクリプトが存在しているディレクトリ名・スクリプト名を取得する。
2006/12/20 01:00 posted by kunkichi

覚え書き。今までは、system()からdirnameとかbasenameコマンド叩いてたんだけど、File::Basename使えばできるんだね、ってことを今更知ったので。しかもSolarsi8標準のPerl_5.005_03で標準モジュールっぽい。

#!/usr/bin/perl

use strict;
use File::Basename;

my $prg_path = dirname( $0 );
my $prg_name = basename( $0 );

print “PRG_PATH=$prg_path¥n”;
print “PRG_NAME=$prg_name¥n”;

↓出力結果

# /tmp/test.pl
PRG_PATH=/tmp
PRG_NAME=test.pl

あぁ、初心者丸出し（爆
もっと勉強しよう。

Category: Perl | コメント＆トラックバック（0）