[perl] variable globale

Version imprimable

20/12/2005, 19h51
LE NEINDRE

[perl] variable globale

Bonsoir à tous,

Ma question est peut-êtr ebizarre mais y a quelque chose que je ne comprends pas.

Dans une fonction appartenant à un package, je définis une variable (un tableau de hachage), que je retourne à mon programme.

Je voudrais que cette variable soit aussi disponible pour tous les packages que j'appelle dan smon programme principal?

Comment faire ???

Faut il utiliser @ISA, ques-ce que @ISA.

utiliser l'opérateur "vars", quest-ce que c'est ?

Utiliser l'opérateur "our" me dérange car plusieurs personnes me l'on déconseillé sur le forum.

Merci pour vos réponses.

Et joyeuses fêtes de fin d'années au fait !!!!
21/12/2005, 02h28
Jedai

Re: [perl] variable globale

Citation:

Envoyé par LE NEINDRE

Utiliser l'opérateur "our" me dérange car plusieurs personnes me l'on déconseillé sur le forum.

Nggg ? Tu es sûr ?

Par ailleurs ce que tu demandes est très bizarre et semble relever d'une erreur de conception : avoir une variable définie dans un package et disponible dans plusieurs est assez étrange... Normalement un package se suffit à lui-même et à la tâche qu'il est censé accomplir, il n'utilise de variables extérieures que par l'intermédiaire des paramètres de fonctions. :?

Si tu étais plus explicite sur ce que tu tentes de faire, nous pourrions peut-être te pointer une structure plus correcte.

--
Jedaï

Bonjour Jedaï !

Je tente réaliser une petite application à l'aide de WxPerl.
Et, tu as raison, j'ai probablement des problèmes de structure car j'avance un peu dan sle flou :oops: :oops:

J'ai grosso-modo la stucture suivante:

Code:

1
2
3
4
5
6
7
8
9
10
 
 
                                      ------Menubar
                                      |-----Toolbar          |--------Frame01
                                      |                      |
app01---->MainFrame----->--------->widowsplitter--------
                                                             |
                                                             |---------Frame02
                                                                             |
                                                                        package EDI

Dans le package EDI, je récupère de ma base données des infos en fonction de valeur entrées dans un textbox de la Frame01 et j'affiche les résultats dans un Grid défini dan sla Frame02

Le lancement de la recherche se fait en appuyant sur un bouton de la Frame01:
Dans Frame01, déclaration du bouton

Code:

1
2
 
$this->{'Bouton1'}=Wx::Button->new($this,$MainFrame::N_BOUTON_SEARCH,"Search",wxDefaultPosition,wxDefaultSize);

Dans MainFrame, déclaration de la valeur du bouton et création d'un événement:

Code:

1
2
3
 
$N_BOUTON_SEARCH=710;
EVT_BUTTON($this,$LPane::N_BOUTON_SEARCH,\&PerlSearch);

package EDI :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
.....
..
sub Search()
{
      my $bgm=$_[0];
      my @SQLResult;my $i;
      my @Champs=split(/ /,&Conf::GetVar('sql_fields'));
      my $dbh=&Connexion();
      my $req=$dbh->prepare("SELECT * FROM commande_in cmd, message_in msg, partenaire part WHERE cmd.BGM like \'%$bgm%\' AND cmd.ID_MESSAGE=msg.ID_MESSAGE AND msg.UNB=part.UNB");
      $req->execute();
      while(my $ref=$req->fetchrow_hashref())
      {
           @{$SQLResult[$i]}{@Champs}=@$ref{@Champs};
           $i++;
 
      }
      $req->finish();
      &Deconnexion($dbh);
      return \@SQLResult;
}
..
.....

Enfin, je récupère dans Mainframe, la référence au tableau retourné par le fonction Search du package EDI (et affiche les valeurs dans le Grid de la Frame02:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
sub PerlSearch()
{
      my($this,$evt)=@_;
      $this->SetCursor( Wx::Cursor->new( wxCURSOR_WAIT  ) );
      $this->{'StatusBar'}->SetStatusText("Please wait while searching ...",1);
      my $BDResult=&EDI::Search($this->{LPANE}->{'Text1'}->GetValue());
      if($#{$BDResult} > -1)
      {
            $this->{'StatusBar'}->SetStatusText("Done -- ".($#{$BDResult}+1)." results",1); 
            &DisplayResult($this->{RPANE},$BDResult);
      }
      else
      {
           $this->{'StatusBar'}->SetStatusText("Done -- No result",1);      
      } 
      $this->SetCursor( Wx::Cursor->new( wxCURSOR_ARROW ) );
}

Voilà, je voudrais avoir accès à ma variable $BDResult, partout, tout le temps etc ....

Est-ce possible ???

21/12/2005, 12h24
Arioch

Re: [perl] variable globale

Citation:

Envoyé par LE NEINDRE

Dans une fonction appartenant à un package, je définis une variable (un tableau de hachage), que je retourne à mon programme.

Je voudrais que cette variable soit aussi disponible pour tous les packages que j'appelle dan smon programme principal?

Comment faire ???

Le plus simple selon moi (déjà testé et approuvé :lol:) :

- déclarer ton tableau de hachage dans le programme principal (script Perl)
- le fournir comme argument de fonction à toutes les fonctions utilisées dans tes packages

Salut le neindre!

J'apporte aucune aide a ton problème, c'est seulement pour te spécifier d'utiliser les paramètres de execute() pour éviter le sql injection

ton code
Code:

1 2 3 my $req=$dbh->prepare("SELECT * FROM commande_in cmd, message_in msg, partenaire part WHERE cmd.BGM like \'%$bgm%\' AND cmd.ID_MESSAGE=msg.ID_MESSAGE AND msg.UNB=part.UNB"); $req->execute();
devient
Code:

1 2 3 my $req=$dbh->prepare("SELECT * FROM commande_in cmd, message_in msg, partenaire part WHERE cmd.BGM like ? AND cmd.ID_MESSAGE=msg.ID_MESSAGE AND msg.UNB=part.UNB"); $req->execute("%$bgm%");
my 0.02¢
A+

22/12/2005, 17h20
LE NEINDRE

ok, merci pour le conseil,
je prends note et execute !!!

Joyeuses fêtes à tous !!!!!!!!!
22/12/2005, 17h25
GLDavid

Et n'oublies pas le tag Résolu avant d'attaquer les fêtes !

@++
22/12/2005, 17h27
LE NEINDRE

Oui, bien sûr.
Mais je crois que mon problème n'est pas résolu.
Je voudrais savoir ce que font la déclaration vars et le tableau @ISA .....