決定相対パス

Question

最初のモジュール：

package Compute; 

our $sort_script= "/app/scripts/python_script.py"; 

第二のモジュール：

package ProcessRestart; 
use Compute; 

# This perl module is also in /app/scripts/ 
# host1.com is an argument or script parameter 

$returnMsg= `$Compute::sort_script host1.com`; 

以上は私が書かれているPerlモジュールの一例です。 Pythonスクリプトを他のモジュールから呼び出し、必要な引数/パラメータで渡します。

私はスクリプトの実際のパスを入力してそれを "./python_script.py"に置き換えることを試みましたが、動作していないようです。

私はCwdを使ってスクリプトを実行したときにディレクトリを印刷しようとしましたが、これは自分のホームディレクトリを指しています。

他の方法でスクリプトの相対パスを取得できますか？

Answer 1

私はあなたがそれを実行するモジュールと同じディレクトリにあるスクリプトを実行する方法を聞いていると思います。

use Path::Class qw(file); 

my $qfn = file(__FILE__)->dir->file('python_script.py'); 

又は

use File::Basename qw(dirname); 

my $qfn = dirname(__FILE__) . '/python_script.py'; 

又は

use Dir::Self qw(__DIR__); 

my $qfn = __DIR__ . '/python_script.py'; 

__FILE__シンボルが配置されているファイルへのパスを返す特別なトークンです。