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 ?

[David55]

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

.
.
.

[Philou67430]

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 :

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

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 :

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

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 :

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

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.

[David55]

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

[Philou67430]

Attends peut-être d'avoir testé

Sinon, pour la programmation objet :

Code :

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

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).

[David55]

Attends peut-être d'avoir testé

Sinon, pour la programmation objet :

Code :

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

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

[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