Bonjour,

je souhaiterai pouvoir inclure dans un script perl un fichier contenant des variables positionnées en fonction d'un paramètre passé en argument, de la même façon que l'on peut le faire en shell sur unix.

Exemple: Le fichier contenant les variables liste_var.pl:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
#!C:\perl\bin\perl -w
 
use strict;
 
for ($ARGV[0]) {
     if (/CAS1/) {VAR1="1";}
     else (/CAS2/) {VAR1="2";}
}
Mon fichier principal main.pl:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
#!C:\perl\bin\perl -w
 
use strict;
 
require "liste_var.pl $ARGV[0]";
 
print "$VAR1\n";
J'execute mon main.pl en lui passant mon parametre en argument:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
main.pl CAS1
Et ça ne marche pas ...
Pourriez-vous m'orienter sur la démarche à suivre pour réaliser une telle procédure svp ?

Pour faire l'analogie avec le shell, c'est comme si je voulais executer un fichier d'environnement dans un script en l'appelant de la manière suivante:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 .  liste_var.sh
Merci d'avance pour vos eclaircissements.

Bruno