Variable WhereIam ?

Bonjour,

Ca y est j'ai presque fini mes scripts. Pour une question de portabilité j'ai besoin de la requete suivante :

j'ai fait pour windows

$dir_root=system('CD')

apres un print "$dir_root" il me sort C:\proj_reporting\
malheureusement j'aimerais plutot avec C:\\proj_reporting\\
Pour que je puisse integrer $dir_root dans mon code.

Il y a til une fonction Perl intégrée pour le faire ? J'ai parcouru les deux grosses docs presente sur developpez.com et j'ai pas trouvé chaussure à mon pied.

Merci si vous avez une idée ou un script qui le fait deja pour nous !

Bonjour,

Essaiececi :

Code:

---

print quotemeta("$dir_root");

---

Le résultat de quotemeta peut aussi être mis dans la variable de ton choix.

Bon courage.

Reponse du shell :

Citation:

---

C:\
0

---

C'est bizarre le '0' :cfou:

http://www.perl.com/doc/manual/html/...quotemeta.html

pour la portabilité du code je préfère utiliser

Code:

---

1 2 3 4

use Cwd; my $dir_root = quotemeta(getcwd); print "working dir = ".$dir_root;

---

exemple :

Code:

---

1 2 3 4 5 6

use Cwd; my $dir_root = (getcwd); print "QM working dir = $dir_root\n"; my $dir_root = quotemeta(getcwd); print " working dir = $dir_root\n";

---

résultat

Citation:

---

"D:\test.pl"

QM working dir = D:/
working dir = D\:\/

---

Je précise que le module Cwd fait partie du CORE (depuis un certain temps sinon un temps certain), donc pas de problème d'installation. Par contre, il n'est nul besoin de quotemeta(), sauf si tu veux utiliser ton chemin dans une regex, en effet :

Code:

---

1 2	print "C:\\proj_reporting\\"; # donne : "C:\proj_reporting\"

---

Le fait de doubler les "\" c'est pour éviter qu'ils soient détruit dans la représentation mémoire de la string, mais la string ne contient pas de "\\", elle ne contient plus que des "\". Autrement dit, si ton $dir_root s'imprime en "C:\proj_reporting\", il est déjà dans la bonne forme, tu peux tout à fait l'utiliser dans ton code (sauf dans les regex, mais c'est un autre problème, qui est valable pour toutes les chaînes à intégrer littéralement dans une regex).

--
Jedaï

Merci Jedai effectivement ca marche !
Pas besoin de quotemeta

Konrad Florczak va devenir expert perl d'ici quelques temps :mrgreen:

J'aimerais bien mais il faut que je reprenne les bases depuis le début.
Mais ca y est je comprend deja comment ca marche.
J'ai imprimé tous les types d'expression régulières possibles en forme de tableau. Je peux vous dire que j'ai pas l'air con au bureau avec ce truc accroché en gros sur ma paillasse :D

Encore une fois merci de me filer des coups de main ! Vous imaginez pas comme vous me sauvez la vie (enfin surtout mon job).

D'ailleurs un bon bouquain à me conseiller pour reprendre tout à zéro ?

PS : Je viens de tester Net::LDAP c'est vraiment énormissime !