Récupération du chemin du script en cours

Version imprimable

07/04/2009, 14h53
Deneteth

Récupération du chemin du script en cours

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.
07/04/2009, 15h36
Jedai

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

--
Jedaï

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

09/04/2009, 11h01
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 !
09/04/2009, 11h02
djibril

as tu testé le script ;) ?
09/04/2009, 11h15
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.
16/11/2012, 15h37
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

Plus d'infos dans les tutoriels et cours de formation pour apprendre la programmation PERL : http://perl.developpez.com/cours/
28/01/2016, 13h15
o_Nejma

Citation:

Envoyé par 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

Plus d'infos dans les tutoriels et cours de formation pour apprendre la programmation PERL : http://perl.developpez.com/cours/

Bonjour seagull,
Je reviens vers cette discussion car j'ai le même problème que Deneteth...Je viens de tester ta proposition et elle marche bien, merciiii :)!
Mais je pense que c'est use File::Basename; qu'il faut mettre plutôt que use Find::Basename; c'est ce que j'ai mis de toutes les façons et cela a bien marché.