Comment obtenir le chemin complet d'un script Perl en cours d'exécution ?

Question

J'ai Perl script et j'ai besoin de déterminer le chemin complet et le nom de fichier du script pendant l'exécution. J'ai découvert que, selon la façon dont vous appelez le script $0 varie et contient parfois le fullpath+filename et parfois juste filename . Étant donné que le répertoire de travail peut également varier, je ne vois pas comment obtenir de manière fiable l'adresse de l'utilisateur. fullpath+filename du script.

Quelqu'un a une solution ?

Answer 1

Il y a plusieurs façons :

• $0 est le script en cours d'exécution tel qu'il est fourni par POSIX, par rapport au répertoire de travail actuel si le script se trouve au niveau du CWD ou en dessous.
• En outre, cwd() , getcwd() y abs_path() sont fournis par le Cwd et vous indique d'où le script est exécuté
• Le module FindBin fournit le $Bin & $RealBin les variables qui généralement sont le chemin vers le script en cours d'exécution ; ce module fournit également $Script & $RealScript qui sont le nom du script
• __FILE__ est le fichier réel que l'interpréteur Perl traite pendant la compilation, y compris son chemin complet.

J'ai vu les trois premiers ( $0 le Cwd et le module FindBin ) échouent sous mod_perl de façon spectaculaire, produisant des produits sans valeur tels que '.' ou une chaîne vide. Dans de tels environnements, j'utilise __FILE__ et obtenir le chemin à partir de cela en utilisant le File::Basename module :

use File::Basename;
my $dirname = dirname(__FILE__);

Answer 2

0 $ est généralement le nom de votre programme, alors que diriez-vous de ceci ?

use Cwd 'abs_path';
print abs_path($0);

Il me semble que cela devrait fonctionner puisque abs_path sait si vous utilisez un chemin relatif ou absolu.

Mise à jour Pour ceux qui lisent ceci des années plus tard, vous devriez lire La réponse de Drew . C'est bien mieux que le mien.

Answer 3

use File::Spec;
File::Spec->rel2abs( __FILE__ );

http://perldoc.perl.org/File/Spec/Unix.html

Answer 4

Je pense que le module que vous recherchez est FindBin :

#!/usr/bin/perl
use FindBin;

$0 = "stealth";
print "The actual path to this is: $FindBin::Bin/$FindBin::Script\n";

Answer 5

Vous pourriez utiliser FindBin , Cwd , Fichier::Nom de base ou une combinaison de ceux-ci. Ils sont tous dans la distribution de base de Perl IIRC.

J'ai utilisé Cwd dans le passé :

Cwd :

use Cwd qw(abs_path);
my $path = abs_path($0);
print "$path\n";