utiliser variable dans differents fichier

Bonjour a tous et a toute,

Je possede trois fichiers:

test1.pl:

Code:

---

1 2 3 4 5 6 7 8 9 10

my $i = 0; sub main { print "hello"; $i++; } sub print_i { print "i = $i"; }

---

test2.pl:

Code:

---

1 2 3 4 5

require 'test1.pl'; main(); open(PRINT_I, "./test3.pl |"); close (PRINT_I);

---

test3.pl:

Code:

---

1 2 3

require 'test1.pl'; print_i();

---

Comment faire pour que la variable $i soit la meme?

Donc, lorsque j'appel ./test2.pl ceci m'affiche: hello i = 1

Merci d'avance pour votre aide

Est ce faisable au moins???

Accèder à une variable d'un module, c'est possible, oui, mais là, c'est tout bonnement hideux. Il faut déjà lire le perlmod.

A noter cependant, qu'il y a bien plus hideux : utiliser directement une variable d'un autre module. Dans notre cas, David55 a eu une bonne démarche en créant (intentionnellement ou non) un constructeur et un accesseur.
Tout naturellement, j'aurais alors tendance à orienter David55 vers une ré-écriture de son exemple sous forme de module objet.

Cependant, j'ai du mal à comprendre le besoin, car dans l'exemple donné, il n'y a réellement qu'un seul processus lancé (test2.pl).
test1.pl serait le module objet qui gère $i, qui contient un compteur, mais j'ai du mal à voir le besoin qui se cache derrière ses instructions :

Code:

---

1 2	open(PRINT_I, "./test3.pl |"); close (PRINT_I);

---

N'est-il pas simplement possible de faire un accesseur dans test1.pl sur la seule variable $i et l'utiliser dans test2.pl

Selon les réponses, je proposerai une approche objet pour test1.pl

Citation:

---

Envoyé par Philou67430

A noter cependant, qu'il y a bien plus hideux : utiliser directement une variable d'un autre module. Dans notre cas, David55 a eu une bonne démarche en créant (intentionnellement ou non) un constructeur et un accesseur.
Tout naturellement, j'aurais alors tendance à orienter David55 vers une ré-écriture de son exemple sous forme de module objet.

Cependant, j'ai du mal à comprendre le besoin, car dans l'exemple donné, il n'y a réellement qu'un seul processus lancé (test2.pl).
test1.pl serait le module objet qui gère $i, qui contient un compteur, mais j'ai du mal à voir le besoin qui se cache derrière ses instructions :

Code:

---

1 2	open(PRINT_I, "./test3.pl |"); close (PRINT_I);

---

N'est-il pas simplement possible de faire un accesseur dans test1.pl sur la seule variable $i et l'utiliser dans test2.pl

Selon les réponses, je proposerai une approche objet pour test1.pl

---

Merci de votre r2ponse,
Comme je l'ai dit je suis debutant en perl et je ne sais pas du tout comment m'y prendre.

Code:

---

1 2	open(PRINT_I, "./test3.pl |"); close (PRINT_I);

---

Ceci sert a executer le fichier test3.pl, il y a certainement mieux a faire!!!

Dans votre exemple, on a l'impression que perl3 ne sert qu'à afficher $i, alors qu'il serait tout aussi possible de le faire directement depuis perl2.
Pourquoi avez-vous besoin d'un script perl3 séparé de perl2 ?

En realite perl3 est dans un autre fichier> En effet, je n'ai pas que ces 3 fichiers j'ai un fichier par module (operation differente) et chaque module est dans un repertoire.
C'est a dire que ma hierarchie est telle que:
./:
test1.pl
test2.pl

./module1/:
test3.pl

./module2/:
test4.pl

.
.
.

Ma question est plutôt de savoir si vous avez UNE seule application (un seul processus) composé de plusieurs modules (ou classes) qui partagent une donnée commune ($i dans l'exemple), ou bien PLUSIEURS APPLICATIONS (plusieurs processus s'exécutant en parallèle) composé d'un ou plusieurs modules et partageant une donnée commune, comme une applications client-serveur ?

A lire votre réponse, je vais supposer qu'il s'agit d'une seule application.
Dans ce cas, une approche objet pour test1.pl donnerait :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

package common;   sub new { my $class = shift; my $self = { count => 0 }; return bless($self, $class); }   sub count { my $self = shift; return $self->{count}; }   sub one_more { my $self = shift; return ++$self->{count}; } 1;

---

Chaque module pourrait être également une classe :
module1/test3.pl

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

package module2::test3;   sub new { my $class = shift; my ($count) = @_;   my $self = { count_obj => $count }; return bless($self, $class); }   sub execute { my $self = shift;   $self->{count_obj}->one_more(); print "Il y a ".$self->{count_obj}->count()." modules lancés\n";   # ... }

---

Quant à l'application principale, elle pourrait se résumer à :
test1.pl

Code:

---

1 2 3 4 5 6 7 8 9

use lib "."; # pour préciser que l'on peut chercher les modules à partir du répertoire courant (à adapter) use common; use module1::test3; # Creation du module commun de comptage my $module_counter = common->new(); # Lancement du module1/test3: my $test3 = module1::test3->new($module_counter);

---

Je n'ai pas testé l'ensemble.

Merci beaucoup Philou67430!
c'est exactement ce que je cherchais.
Je passe le sujet en resolu!

Attends peut-être d'avoir testé ;)

Sinon, pour la programmation objet :

Code:

---

1 2 3

perldoc perlboot perldoc perltoot ...

---

Personnellement, je trouve ce mode de programmation plus simple que celui des modules fonctionnels (avec Exporter par exemple), même s'il n'y a actuellement aucune facilité dans le langage de base de perl5 pour déclarer une méthode et un constructeur (la principale gêne réside dans le fait qu'il faut explicitement déclarer la classe ou l'objet en paramètre du constructeur et des méthodes, le reste étant relativement transparent).

Citation:

---

Envoyé par Philou67430

Attends peut-être d'avoir testé ;)

Sinon, pour la programmation objet :

Code:

---

1 2 3

perldoc perlboot perldoc perltoot ...

---

Personnellement, je trouve ce mode de programmation plus simple que celui des modules fonctionnels (avec Exporter par exemple), même s'il n'y a actuellement aucune facilité dans le langage de base de perl5 pour déclarer une méthode et un constructeur (la principale gêne réside dans le fait qu'il faut explicitement déclarer la classe ou l'objet en paramètre du constructeur et des méthodes, le reste étant relativement transparent).

---

Je me suis beaucoup aidé de votre code et ceci fonctionne comme je le voulais je vous en remercie.
Je vais me renseigner sur la programmation objet.
Merci encore

complément à lire : Perl et la Programmation orientée objet

Citation:

---

Envoyé par djibril

complément à lire : Perl et la Programmation orientée objet

---

Merci pour ce complement