Discussion :

[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 :

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

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 :

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

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

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

[o_Nejma]

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é.