Discussion :

[Arioch]

si tu veux on reprendra cette conversation Lundi car je suis en W-end dans 5 minutes.

veinard !

en tous cas merci pour ton aide précieuse...

no problemo ! Pour repartir sur de bonnes bases lundi prochain donc , voici 2 packages qui font exactement la même chose :

Code :

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

1
2
3
4
5
6
7
8
package Pkg1;
use vars qw(@ISA);
use Exporter;
@ISA = qw(Exporter);
 
print "COUCOU\n";
 
1;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
package Pkg2;
use vars qw(@ISA @EXPORT);
use Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(Ma_Fonction);
 
sub Ma_Fonction
{
    print "COUCOU\n";
}
 
1;

La différence entre les deux ?

Avec le package 1, dès lors que le compilo topera use Pkg1; dans ton code, il affichera ce que fait le package qui ici, affiche COUCOU sur la sortie standard.

Avec le package 2, il faut employer la fonction Ma_Fonction(), en plus de use Pkg2; pour que le COUCOU s'affiche.

Bon WE !

[martijan]

Salut,

Alors le Week-end s'est-il bien passé ?

en fait si j'ai bien compris ton dernier message, au début du programme principal je met

Code :

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

use Pkg;

et au moment ou j'ai besoin de la fonction je fais

Code :

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

Ma fonction()

a l'endroit où elle doit démarrer.
c'est bien çà ?

[Arioch]

Dans le contexte où j'ai présenté la chose, un package n'est rien d'autre qu'un sac à fonctions. Là où, habituellement, tu mets tes fonctions à la fin de ton programme principal (ou au début, peu importe), là tes fonctions sont dans un fichier à part. Il te suffit d'utiliser ce fichier (package) et ensuite, tu appelles bêtement la ou les fonction(s) dont tu as besoin au moment exact où tu en as besoin.

Et pour répondre à ta question en 1 mot plutôt qu'en une tartine (comme ci-dessus ) ---> OUI

[martijan]

les choses ne se passent pas trop mal pour l'instant, pourtant un point obscure subsiste :

dans mon programme principal j'ai une variable :

Code :

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

$nomapplication="blabla";

dans un des .pm je dois récupérer la valeur de cette variable. or le .pm en question ne reconnait pas. pourtant je ne l'ai pas déclarée avec

Code :

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

my

??

[Arioch]

Une fonction peut bosser avec des variables qu'elle reçoit en arguments, utilise cette possibilité pour bosser avec ta variable

[martijan]

oui mais ca je ne sais pas encore faire !!!!!

[Arioch]

ci-dessous, un exemple tout bête. Le but du jeu est d'initialiser via fonction une variable en lui donnant comme valeur 1.

Exemple de fonction qui bosse sans utiliser de référence :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
use strict;
my $Variable = 0;
 
$Variable = Initialise($Variable);
 
sub Initialise
{
    my $Var = shift;
    $Var = 1;
    return $Var;
}

Même chose cette fois en utilisant une référence à la variable à initialiser :

Code :

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

1
2
3
4
5
6
7
8
9
10
use strict;
my $Variable = 0;
 
Initialise(\$Variable);
 
sub Initialise
{
    my ($Var) = shift;    # bien noter ici les parenthèses
    $$Var = 1;               # et ici l'emploi du $$
}

[martijan]

aouhhhh !

désolé la je nage un peu car tu es entrain de me montrer le cas avec une variable !

je m'explique :

use strict;
my $Variable = 0;

$Variable = Initialise($Variable);

sub Initialise
{
my $Var = shift;
$Var = 1;
return $Var;
}

$Var prend la valeur de $Variable utilisée en argument !
Oui ou Non ?

ensuite

use strict;
my $Variable = 0;

Initialise(\$Variable);

sub Initialise
{
my ($Var) = shift; # bien noter ici les parenthèses
$$Var = 1; # et ici l'emploi du $$
}

dans ce cas c'est la même chose sauf que tu utlises un référencement à une variable.

Oui ou Non ?

mais comment mon .pm qui utilise une dizaine de variable, sait qu'il faut affecté $Var à $Variable plutôt que $Var5 à $Variable !!!!!!

la je swimm...

[Arioch]

Cas 1 : $Var prend la valeur de $Variable utilisée en argument !
Oui ou Non ?

oui.

cas 2 : dans ce cas c'est la même chose sauf que tu utlises un référencement à une variable.

Oui ou Non ?

oui.

mais comment mon .pm qui utilise une dizaine de variable, sait qu'il faut affecté $Var à $Variable plutôt que $Var5 à $Variable !!!!!!

la je swimm...

Si tu dois passer plusieurs variables en arguments à ta fonction, et que dans le lot tu as des variables passées par références, il te suffit de faire comme ceci :

Code :

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

1
2
3
4
sub Ma_Fonction
{
    my ($var1, $var2, $var3, $var4, $var5) = @_;
}

Dans l'exemple, @_ est un tableau contenant TOUTES les variables qu'une fonction reçoit par arguments.

Lorsque tu veux appeler la fonction, il te suffit juste de placer tes variables dans l'ordre exact où la fonction les attend. Ainsi, si dans mon exemple, tu veux passer par référence la variable $Toto et que la fonction l'attend en 5ème position, ça donne ceci :

Code :

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

Ma_Fonction($truc, $troc, $bidule, $machin, \$toto);

[martijan]

je suis vraiment désolé de te surcharger de questions, tu dois certainement avoir d'autres choses à faire.
milles excuses mais tout ceci est nouveau pour moi, ne m'en tiens pas rigueur stp...

et si tu préferes dialoguer par e-mail il suffit de me le transmettre le mien est :


martijan@ina.fr.com

[martijan]

je me suis certainement mal exprimé :

le .pm contient une dizaine de variable certes, mail il n'y en a qu'une à transmettre du programme principal au .pm et c'est la que je ne comprends pas !

ex: variable à transmettre : $nomvariable
je le fais comme suis :
programme principal :

Code :

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

&module::ma_fonction(\$nomapplication);

et dans le module :

Code :

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

my ($name)=$$nomapplication;

c'est bien comme çà ?

[Arioch]

non, dans ton module il faut faire sacom :

Code :

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

my ($name)=shift;

Comme dit tt à l'heure, @_ est un tableau contenant toutes les variables passées à un programme. Quand je fais shift, ça sous-entend shift(@_), ce qui signifie que $name reçoit le 1er argument du tableau @_. Tu pourrais faire de ces 3 manières là pour récupérer le 1er argument passé à ta fonction :

Code :

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

1
2
3
my ($name)=shift;    # cas 1
my ($name)=shift(@_);    # cas 2
my ($name)=$_[0];    # cas 3

[martijan]

OK là c'est + clair.

[martijan]

OK tout fonctionne à merveilles

encore milles merci...

[Arioch]

OK tout fonctionne à merveilles

encore milles merci...

cool

n'hésite pas à poser d'autres questions surtout