[langage] Passage de variables...

Bonjour,

je sais que la question a certainement déjà été posée mais je ne sais plus du tout.

j'ai une variable dans un programme principal

Code:

---

$nomapplication

---

et il faut que mon .pm auquel je fais appel puisse utiliser cette variable ?

un peu d'aide svp ?

Bonjour,

Tu peux passer cette variable a une fonction de ton .pm.
C'est le plus simple.

oui ok mais comment c'est là ma question

Je ne suis pas sûr de très bien comprendre ? Tu ne sais pas passer des paramètres à une fonction ? Dans ce cas, la meilleure chose à faire c'est de lire perlsub (perldoc perlsub ou man perlsub selon ta plateforme).

Néanmoins je peux essayer de résumer : quand tu appelles une fonction, tous les arguments sont placés dans un tableau : @_.
Ensuite tu peux manipuler ces arguments, soit en faisant directement allusion à eux par $_[0] (par exemple) soit en les mettant d'abord dans une variable avec un nom plus explicite avant de les utiliser.
Cependant il y a une subtilité : le contenu de @_ est en fait constitué d'"alias" des arguments, c'est à dire que si tu le modifies, tu modifies en fait les variables que tu as passé à ta fonction à l'origine !! Ce qui n'est pas le cas si tu utilise une variable intermédiaire, car celle-ci n'est qu'une copie de la valeur de l'argument.

Je te mets un exemple pour être plus clair :

Code:

---

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

sub neModifiePas { my $arg = $_[0]; $arg++; return $arg; }   sub modifie { $_[0]++; return $_[0]; }   my $i = 0;   my $i2 = neModifiePas( $i ); #après cet appel $i2 vaut 1 mais $i vaut toujours 0   my $i3 = modifie( $i ); #après cet appel $i3 vaut bien 1 et $i vaut aussi 1 !

---

Comme tu le vois, la première fonction ne touche pas à la valeur de son argument, tandis que la deuxième la modifie. :D

En espérant que ça t'auras aidé. Si ce n'est pas le cas, essaie de préciser ton problème, explique nous ce que tu essaies de faire.

je me fais éffectivement mal comprendre :

dans un programme :

Code:

---

1 2 3 4 5 6 7 8

#/usr/bin/perl -w   use gc; #Etant mon package dans gc.pm#   use @ISA(Exporter) use vars qw(@ISA @EXPORT); @ISA = qw(Exporter); @EXPORTER = ($nomApplication);

---

et pour gc.pm

Code:

---

1 2 3 4 5 6 7 8 9 10

#/usr/bin/perl -w   my ($nomApplication)=shift;   print "$nomApplication"; [quote] $nomApplication n'est pas reconnu.   espérant avoir été un peu plus clair j'attends un peu d'aide, merci.[/quote]

---

C'est un défaut de conception : tu n'es pas censé utiliser dans un module une variable initialisée dans un programme (à part par un appel de fonction), c'est l'inverse.
Un module se doit d'être indépendant des programme qui l'utilisent, c'est le programme qui utilise le module, et non l'inverse.
Cela dit, si tu nous expliquais réellement ce que tu essaies de faire et pourquoi tu en as besoin, nous pourrions mieux t'aider.

Je te signale par ailleurs que le code contenu dans un module utilisé par un programme est exécuté lors de la phase de compilation de ce programme, donc es-tu sûr que c'est ce que tu veux faire ??

Normalement le code contenu dans un module est soit dans une définition de fonction, soit dans un but d'initialisation du module.
(Le nom du fichier qui a été lancé est disponible dans $0, c'est une variable automatiquement mise à disposition par Perl dès la compilation, donc tu peux l'utiliser dans l'initialisation d'un module)

Je rejoins Jedai. Il y a un probleme de conception du programme.
Sinon tu peux tres bien passer des variables pour ton .pm avec une fonction. (Ca fera un peu comem une classe)

Ce que j'ai dit au debut.

OK, ce que vous me dites c'est de faire une fonction dans le .pm ex:

Code:

---

TrouveNom();

---

faisant partide gc.pm

dans le prog principal je l'utilise comme suit :

Code:

---

1 2	use gc; &gc::TrouveNom($nomapplication);

---

je pense que là je doit être dans le vrai oubien ?

ca y est c'est OK tout fonctionne.
en effet en passer un argument à la fonction du .pm cela a fonctionné.
merci encore et désolé du dérangement.