Perl でスクリプトの名前とか置いてある場所を探す

 C だと argv[0] に実行コマンドが入るんだけど、Perl だと引数のみなのですね。ちょっと必要に迫られて調べたところ、こんな感じで解決しました。

use FindBin;

sub getModulePath {
  return $FindBin::Bin . '/' ;
}

sub getModuleName {
  return $FindBin::Bin . '/' . $FindBin::Script;
}

サブルーチンにせず、そのまま書くのもあり。備忘用に残しておく。