Pour tes var externes, je vois 2 solutions :
1) elles sont stockées, ligne par ligne dans un fichier ini :
Code :
- nom de var;valeur
- toto;1
- titi;34
- tata;48
|
dans ton programme Perl, tu te crée un hash qui récupère en tant que clés les noms de var et en tant que valeurs ce qu'elles contiennent :
Code :
- use strict;
- my %Variable;
- open(INI, "fichier.ini" ) or die();
- while(<INI> ) {
- chomp();
- if (/^(.+);(.+)$) {
- $Variable{$1} = $2;
- } else {
- print "fic ini, ligne $. non correcte\n";
- }
- }
- close(INI);
- foreach(keys %Variable) {
- print "clé = $_, contenu = $Variable{$_}\n";
- }
|
2) solution 2, passer par un package dans lequel tu crées toutes tes variables et leurs valeurs :
Code :
- use package; # ton package
- print "$package::toto\n"; # concerne la variable $toto du package
|
---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL