Bestimmung relativer Pfad in Perl-Modul

Question

Erstes Modul:

package Compute; 

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

zweite Modul:

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`; 

Oben ist ein Beispiel für ein Perl-Modul habe ich geschrieben. Es ruft das Python-Skript von anderen Modulen auf und übergibt es in den notwendigen Argumenten/Parametern.

Ich habe versucht, den tatsächlichen Pfad des Skripts zu entfernen und es durch "./python_script.py" zu ersetzen, aber es scheint nicht zu funktionieren.

Ich habe versucht, das Verzeichnis beim Ausführen des Skripts mit Cwd zu drucken, es zeigt auf mein Home-Verzeichnis.

Welche anderen Möglichkeiten kann ich versuchen, einen relativen Pfad zum Skript zu haben?

Answer 1

Ich denke, Sie fragen, wie ein Skript ausgeführt wird, das sich im selben Verzeichnis befindet wie das Modul, das es ausführt.

use Path::Class qw(file); 

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

oder

use File::Basename qw(dirname); 

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

oder

use Dir::Self qw(__DIR__); 

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

__FILE__ ist ein spezieller Token, das den Pfad zu der Datei zurückkehrt, in der das Symbol befindet.