Discussion :

[o_Nejma]

Bonjour tout le monde,

Je travaille sur un script en Perl où tous les répertoires doivent être en relatif. Comme je n'ai pas fait attention à cette exigence dès le début j'ai presque tout fait en absolu. Maintenant je veux tout convertir en relatif, et franchement je ne comprends pas ce qu'il faut faire!
J'ai trouvé la fonction abs2rel qui permet de convertir un chemin absolu en chemin relatif, je l'ai utilisé comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
sub GetDirPath
{ 
   $cwd_ = dirname $0; #repertoire du script quelque soit le repertoire courant de lancement
   my($filename_, $dirs_, $suffix_) = fileparse($cwd_,qr/\.[^.]*/); #                                                                 # 
   my ($parent_path,$other)     = split('$filename_', $dirs_);
   #####convertir en chemin relatif#####
   use File::Spec;
   my $relativePath = File::Spec->abs2rel($parent_path) ;
 
   my $path_1 = $relativePath."AutreDossier" ;     print "$path_1\n";
   my $path_2 = $relativePath."Dossier1" ;         print "$path_2\n";
   my $path_3 = $relativePath."configuration.ini" ;print "$path_3\n";
   my $path_4 = $relativePath."fichier1.txt" ;     print "$path_4\n";
}

Quand je convertie le chemin "$parent_path", sur lequel je me base pour localiser tous mes fichiers et mes répertoires, je perds le bout du fil et je ne sais plus comment procéder!!
Mon répertoir de travail est le suivant:

et j'aimerais pouvoir accéder à mes dossier existant dans xxxx comme suit: ..\..\Dossier1
Pourriez vous m'aider SVP?
Par avance, merci.

Cordialement,
O_Nejma

[o_Nejma]

J'ai essayé ça aussi, mais qd j'utilise les variables $path_X, les chemins ne sont pas valides...Je suis débutante en perl et je n'ai jamais travaillé avec des chemins relatifs
SVP HEEEEELP!

Code :

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

1
2
3
4
5
6
7
8
 
sub GetDirPath
{ 
   my $path_1 = File::Spec->abs2rel($dirs_."\\AutreDossier", $dirs_);  
   my $path_2 = File::Spec->abs2rel($dirs_."\\Dossier1", $dirs_);            
   my $path_3 = File::Spec->abs2rel($dirs_."\\Dossier1", $dirs_); 
   my $path_4 = File::Spec->abs2rel($dirs_."\\fichier1.txt", $dirs_);         
}

Cordialement,
o_Nejma

[djibril]

Bonjour,

Essaye de donner des exemples concrets de noms de répertoires et de fichiers que tu as et du résultat que tu souhaites obtenir.

N.B. Tu se joueras avec la fonction abs2rel du module File::Spec.

[o_Nejma]

Bonjour,

Essaye de donner des exemples concrets de noms de répertoires et de fichiers que tu as et du résultat que tu souhaites obtenir.

Merci pour ta réponse djibril.
Les chemins relatifs que je récupère dans $path_1 .. 2, sont en fait des variables globales que je voudrai utiliser dans d'autres fonctions dans le même script.
L'arborescence que j'ai donné dans l'exemple correspond parfaitement à ce que j'ai. je manipule des fichiers existants dans ces dossiers en les modifiants, et en en créant d'autres...Le script est un peu long mais tout ce passait bien avec les chemins absolus.
Mais je n'arrive vraiment pas à convertir correctement ces chemins en relatif!!

Merci encore une fois!

[Lolo78]

Bonsoir,

essaie d'imprimer le contenu de la variable $relativePath après cette instruction:

Code :

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

1
2
 
my $relativePath = File::Spec->abs2rel($parent_path) ;

Je soupçonne très fortement qu'elle ne contient pas du tout ce que tu penses. En particulier, elle ne contient sans doute pas de "/" ou de "\" à la fin, ce qui fait que ta concaténation

Code :

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

1
2
 
my $path_1 = $relativePath."AutreDossier" ;

ne fonctionne sans doute pas comme tu voudrais.

D'une façon générale, quand quelque chose ne fonctionne pas comme tu voudrais, il faut afficher d'une manière ou d'une autre tes variables intermédiaires pour comprendre à quel endroit se situe le problème. Un coup d’œil à la FAQ sur le débogage pourrait d'aider.

Plus généralement, je n'ai pas compris exactement ce que tu cherches à faire, mais je ne suis pas sûr que ce soit une bonne idée de vouloir utiliser des chemins relatifs. Il est peut-être préférable d'utiliser des chemins absolus dans lesquels la base des chemins relatifs que tu recherches n'est pas codée en dur, mais est stocké dans une variable.

[Philou67430]

En réponse à ton premier message, as-tu essayé :

Code :

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

1
2
3
4
5
6
   my $relativePath = File::Spec->abs2rel($parent_path) ;
 
   my $path_1 = File::Spec->catfile($relativePath, "AutreDossier");     print "$path_1\n";
   my $path_2 = File::Spec->catfile($relativePath, "Dossier1");         print "$path_2\n";
   my $path_3 = File::Spec->catfile($relativePath, "configuration.ini");print "$path_3\n";
   my $path_4 = File::Spec->catfile($relativePath, "fichier1.txt");     print "$path_4\n";

[o_Nejma]

Merci beaucoup de vos réponses et vos propositions. Mais j’étais obligée de passer à qlq chose de plus urgent, je laisse cette discussion ouverte le temps que je puisse me pencher de nouveau sur ce sujet...

Merci à vous!

[o_Nejma]

Bonjour les amis,
Je vous remercie tous et toutes pour votre intérêt.
En fait je n'avais pas bien compris la spec que j'avais. Ce n'était pas un problème de gérer tout en absolu mais il a fallu communiquer une configuration en relatif afin de garder la portabilité du programme...
Par conséquent je mets la discussion à résolu.
Merci.