Discussion :

[Konrad Florczak]

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 !

[2Eurocents]

Bonjour,

Essaiececi :

Code :

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

print quotemeta("$dir_root");

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

Bon courage.

[Konrad Florczak]

Reponse du shell :

C:\
0

C'est bizarre le '0'

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

[rcageot]

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

Code :

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

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

exemple :

Code :

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

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

"D:\test.pl"

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

[Jedai]

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 :

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

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ï

[Konrad Florczak]

Merci Jedai effectivement ca marche !
Pas besoin de quotemeta

[djibril]

Konrad Florczak va devenir expert perl d'ici quelques temps

[Konrad Florczak]

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

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 !