実行中のPerl スクリプトの位置をフルパスでゲットするスクリプトです。
この手のスクリプトは書く機会がそこそこあるんですが、なぜか毎度毎度いちいち調べながら書いている気がして、
しかもデバッグとかも毎回やっているような感じがして、面倒くせーなーと思ったので書き残す事にしました。
今までに僕が書き散らかした幾つかのスクリプトの中で動いているコードなので多分動くと思うんですが、
バグを見つけたら教えていただけると嬉しいです。
あと、「ここ、こうすれば良いんじゃね？」というご指摘もお待ちしています。
以下コード
変更しました
2012.10.22 に以下のように変更しました。コメントをくださったDQNEO さん、ありがとうございます。
