Discussion :

[armada]

Bonjour,

J'aimerais savoir si il est possible de récupérer le path complet du script en cours ?

W2K
ActivePerl 5.8

Le problème est le suivant :
Le programme que je fais sera transformé en exécutable et placé sur des machines dont le path peut varier de l'une à l'autre. Ce programme a besoin d'un fichier "de configuration" placé dans le même répertoire que lui.
Pour aller chercher ce fichier de configuration, j'utilise le '.' indiquant le répertoire courant, mais lorsque l'exe est appelé depuis un autre chemin, il ne trouve pas le fichier de configuration.
Est-ce clair ?

[nyal]

Regarde du cote de la variable $0 (ou $PROGRAM_NAME avec 'use English').

Tu auras le path avec. Il te reste plus qu'a extraire le chemin. Si tu veux le chemin absolu, il te suffit de change de repertoire (pour te trouver dans celui de l executable) et ensuite tu recuperes la commande via une commande comme pwd (Sous Unix). Ou sinon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
use POSIX;
 
my $path_abs = getcwd();
print $path_abs . "\n";

[Jedai]

En fait Nyal, $0 ne donne pas le path, juste le nom du script...
Et le problème de pwd() c'est qu'effectivement on peut lancer le script à partir d'un autre répertoire.
La solution est par contre fournie par un module du CORE : FindBin, et par le scalaire qu'il fournit : $Bin.
ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
use FindBin;
print $FindBin::Bin;

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
use FindBin qw(Bin);
print $Bin;

Ces deux morceaux de code vont imprimer le répertoire où se trouve le script en train d'être exécuté, c'est garanti à 100% et c'est multi-plateforme.

[EDIT] En fait j'ai à moitié faux puisque $0 est simplement le nom du script tel qu'il est appelé sur la ligne de commande, on peut donc s'en servir pour déterminer le chemin du binaire en prenant en compte tous les cas spéciaux (chemin relatif à développer, répertoire courant lorsqu'il n'y a rien devant le nom du script (dans le cas de Windows) ou l'un des répertoires du PATH (sous windows et linux)). Désolé Nyal
Mais FindBin évite de se prendre la tête pour pas cher (c'est un module qui ne sert qu'à ça, donc pas lourd du tout ).

[armada]

MERCI à tous les 2
J'ai utilisé la solution de Nyal qui a fonctionné du premier coup...