Discussion :

[David55]

Bonjour a tous et a toute,

Je possede trois fichiers:

test1.pl:

Code :

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

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 :

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

1
2
3
4
5
 
require 'test1.pl';
main();
open(PRINT_I, "./test3.pl |");
close (PRINT_I);

test3.pl:

Code :

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

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

[David55]

Est ce faisable au moins???

[thierry.chich]

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.

[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 :

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

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

[David55]

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 :

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

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 :

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

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!!!

[Philou67430]

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 ?

[djibril]

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

[David55]

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

Merci pour ce complement