Discussion :

[cricri77200]

Bonjour, j'ai un programme en perl s'appellant main.perl et je met en option en ligne de commande le fichier coordonnees.traj comme ceci :

Code :

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

perl main.perl --file coordonnees.traj

Le fichier main.perl et coordonnes.traj étant dans le même répertoire mon programme fonctionne parfaitement.

Cependant ma question est :
Si mon fichier main.perl est maintenant dans le répertoire C:/perl/Main et que mon fichier coordonnes.traj se trouve dans le répertoire C:/perl/Main/Traj , comment faut t'il spécifié le chemin de mon fichier lors de la compilation ?

Cordialement

[Philou67430]

Selon le répertoire depuis lequel tu lances ta commande, il faudra :
- spécifier le chemin du script si tu te trouves dans le répertoire du fichier de donnée
- spécifier le chemin du fichier de donnée si tu te trouves dans le répertoire du script
- spécifier les deux chemins si tu te trouves dans aucun des deux.

Les trois exemples :

Code Cmd :

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

1
2
3
c:\perl\main> perl main.perl --file traj\coordonnees.traj
c:\perl\main\traj> perl ..\main.perl --file coordonnees.traj
c:\> perl c:\perl\main\main.perl --file c:\perl\main\traj\coordonnees.traj

[cricri77200]

Merci Philou ca marche bien =)
Par contre une dernière question y aurait 'il un moyen de spécifier automatiquement le chemin du répertoire dans le main.perl pour ainsi éviter de taper en ligne de commande le répertoire ou se situe le fichier ?

Merci beaucoup et bonne journée !

[Philou67430]

Si c'est une constante, tu peux le mettre dans ton programme :

Code :

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

my $root_path = "c:\\perl\\main\\traj";

Si c'est relatif au fichier de script tu peux utiliser le module Findbin :

Code :

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

1
2
3
use FindBin;
 
my $root_path = $Findbin::Bin."\\traj";

Tu peux également définir une variable d'environnement qui contient le chemin, et prendre comme valeur par défaut si elle n'existe pas, l'une des solutions ci-dessus :

Code :

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

1
2
3
4
use FindBin;
use 5.10;
 
my $root_path = $ENV{TRAJ_DIR} // $Findbin::Bin."\\traj";

ou en version inférieur à perl 5.10

Code :

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

1
2
3
4
 
use FindBin;
 
my $root_path = defined $ENV{TRAJ_DIR} ? $ENV{TRAJ_DIR} : $Findbin::Bin."\\traj";