Récupération du chemin du script en cours [Résolu]

[Deneteth]

Bonjour à tous,

Je cherche un moyen de récupérer le chemin complet du script dans lequel je me trouve au cours d'une execution. Pour faciliter je cherche un moyen non dépendant de l'OS (commande externe exclue donc) et je ne souhaite pas avoir à passer cette information en tant que paramètre (oui je fais dans le simple). Je considère aussi que le chemin de ce script peut très bien ne pas être le chemin en cours (cwd) lors de l'exécution.

Quelque chose de similaire à la variable $0 mais avec le chemin serait parfait en fait mais je n'ai rien trouvé de concluant...

Merci d'avance.

[Jedai]

Tu as le module FindBin (dans le CORE), pas idéal mais mieux que rien.

--
Jedaï

[djibril]

J'ai pas tout saisi, mais voici un code qui pourrait te suffire :

Code :

1
2
3
4
5
6
7
8
#!/usr/bin/perl
use Cwd; 
use warnings;
use strict;
 
print "Nom OS : ",$^O,"\n";
print "Script courant : ",$0,"\n";
print "Répertoire Courant : ",getcwd,"\n";

[Deneteth]

Le probleme du cwd c'est qu'il va me renvoyer le répertoire courant donc mettons que je me trouve dans /home/deneteth, si j'exécute le script /usr/bin/test.pl je vais récupérer /home/deneteth et pas /usr/bin/ (ce que je recherche).

Pour ce qui est du FindBin par contre il y a peut être quelque chose (le basename semble correspondre à ce que je recherche). Je vais regarder cela de plus près.

Merci !

[djibril]

as tu testé le script ?

[Deneteth]

Ben rapido oui

Code :

1
2
3
4
5
6
7
8
9
10
11
 
use Cwd;
use FindBin qw ( $Bin $Script );
 
print "Trouvé $Script dans $Bin \n";
 
$test = getcwd();
 
print "Trouvé $0 dans $test\n";
 
exit 0;

J'ai bien le chemin recharché dans le premier cas, je récupère mon répertoire en cours dans le second (C: dans mon cas).

Par contre je retire ce que j'ai dit sur $0, il m'a effectivement retourné le chemin complet ce coup-ci et pas dans mon autre script... je vais regarder cela de plus prêt.

Je passe résolu de toute façon, j'ai effectivement un moyen de récupérer le chemin qui m'intéresse.

[seagull]

je déterre ce sujet résolu pour apporter une petite précision (qui a déjà été évoqué à propos du basename).

La variable $0 est à traiter avec le module Find :
use Find::Basename;
my $nom_script = basename $0; #=> nom du script
my $rep_script = dirname $0;#=> repertoire du script quelque soit le repertoire courant de lancement