perl ことはじめ

http://www.jp-z.jp/perlmemo/file_FindBin.html

標準モジュール

use FindBin qw($Bin); # $Bin に 実行スクリプトのディレクトリが代入
use FindBin qw($Script); # $Script に 実行スクリプト名が代入

まぁ、$0 と File::Basename 使ってもいーけど。(でもこっちは相対パスになる)

use FindBin qw($RealBin);
use FindBin qw($RealScript);
で、実行スクリプトがリンクの場合に、リンク元のディレクトリ・ファイル名を取得

http://code.nanigac.com/source/view/571

#! /usr/bin/perl

use FindBin qw($Bin);

require "$Bin/../etc/try_env.pl";
require "$Bin/../lib/try_lib.pl";

### 処理