require et transfert de variable d'un perl à l'autre

Bonjour,

Habituellement je code en php, je débute en perl...
J'ai fais quelques recherche pour trouver une fonction similaire à la fonction include mais sans succès.
J'ai trouvé require mais l'usage de cette fonction ne permet pas de transmettre de variable au script perl initial.

En gros je souhaiterai avoir un programme principal avec sa logique propre et un fichier de conf en séparé pour faciliter l'édition.
Hors require execute le programme en externe mais les variables déclarées ne sont pas utilisables dans le premier script.

ça parait pourtant très simple comme problème mais le seul moyen que j'ai trouvé pour avoir des variables en externe c'est d'ouvrir le fichier de conf et de faire des commandes de recherche avec =~ pour ensuite traiter mes variables... ça me parait bien lourd pour pas grand chose...

Code exemple :
test.pl

Code:

---

1 2 3 4

#!/usr/bin/perl push (@INC,system 'pwd'); require ("test2.pl"); print "$toto from test.pl";

---

test2.pl

Code:

---

1 2 3 4

#!/usr/bin/perl my $toto="HIAY"; print "$toto"; print "OHHHHHHHHH\n";

---

Résultat :

Code:

---

1 2 3

0 HIAYOHHHHHHHHH from test.pl

---

La variable n'est pas transmise...

Y a un truc simple que j'ai raté ?

Si ton test2.pl est un fichier de configuration fait plutot un fichier .pm.

Un petit turorial de perl qui m'a servit:
tuto pour ecrire des modules en perl (parties 13 14)

Je pense que cela pourra déjá bien t'aider. (Bonne introduction à perl et il peut repondre a ton probleme je pense).

Bonjour,

Pour faire cela crée un module .pm et déclare tes variables globales avec le mot-clé "our" :

Code:

---

1 2 3 4 5 6

package mon_package; ... our $var = "value"; ... 1;

---

Quand tu importeras ton module dans ton script tu pourras accéder à ta variable globale par exemple comme ceci :

Code:

---

1 2 3 4

use mon_package; ... print $mon_package::var."\n";

---

En gros, lis la documentation sur comment créer des modules et les utiliser et ton problème sera résolu (on trouve une bonne quantité de doc et de tuto sur ce sujet)

Merci pour l'intervention...
J'avais effectivement vu des cours sur la partie dev objet (avec les packages donc) mais je n'avais pas pensé à les utiliser comme ça.

Je pensais qu'il y avait un moyen plus simple, il me manquait par ailleurs le "our" pour faire un export.

Apparemment sous perl c'est comme ça un point c'est tout ;).