récuperation d'une variable issue d'une fonction

**Landraille** · 05/04/2011, 14h41

Bonjour,

J'ai un problème surement trivial pour vous mais que je n'arrive pas à résoudre. J'ai un problème de récupération de variable d'une fonction lorsque j'utilise Tk.
En effet, sans tK, cela se passe bien, avec le script ci-dessous, tout fonctionne.

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
 
#!/usr/bin/perl
 
use strict;
use warnings;
 
my $part1='ABC';
my $conc=&AJOUT($part1);
 
print "\n2eme ligne (demandee dans le main) : valeur de concatenation = $conc\n";
 
 
sub AJOUT
{
	my $part2='DEF';
	my $ajout=$_[0].$part2;
	print "\n1ere ligne (demandee dans la fonction): valeur de concatenation = $ajout\n";
	return $ajout; 
}

J'ai bien la ligne 1 qui s'écrit avant la ligne 2.

Par contre quand je passe en Tk, j'ai plusieurs problèmes. J'ai fait ce script afin qu'il ressemble à celui d'avant:

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
#!/usr/bin/perl
 
use strict;
use warnings;
use Tk;
 
my $mw = MainWindow->new();
$mw->minsize (500,500);
 
my $intro = $mw->Label(-text => 'Ajout morceau de variable',
			-relief => 'raised',
			-background => 'yellow',)
			->pack(-fill => 'x');
 
 
my $part1='ABC';
my $conc='';
$conc=&AJOUT($part1);
 
print "\n2eme ligne (demandee dans le main) : valeur de concatenation = $conc\n";
 
MainLoop;
 
sub AJOUT
{
	my $part=$_[0];
	my $entete_list=$mw->Label(-text=>'Que voulez vous ajouter?')->pack;
	my $list = $mw->Listbox()->pack;
	my $bouton_OK = $mw->Button(-text=> 'OK')->pack;
	$list->insert('end','ABC','DEF','GHI');
	$bouton_OK->configure(-command => sub {
		my $ID=$list->curselection();
		my $select=$list->get($ID);
		my $ajout=$part.$select;
		print "\n1ere ligne (demandee dans la fonction): valeur de concatenation = $ajout\n";
		return "$ajout";
	}
	);
 
 
}

Les problèmes sont :
- message d'erreur "Use of uninitialized value in concatenation (.) or string at line 20. Cette ligne correspond à l'écriture de la ligne 2. Problème sur la variable $conc, il n'arrive pas à récupérer la valeur issue de la fonction mais je ne comprends pas pourquoi.
- Il m'écrit d'abord la ligne 2 avant la ligne 1?? Je ne comprends donc pas pourquoi il execute tout ce qu'il ya dans le main avant de passer aux fonctions? Quel est l'intêret de faire des fonctions si il ne les execute qu'après?

Je dois faire un mauvais truc mais je ne vois pas.

Merci d'avance

**djibril** · 05/04/2011, 15h05

voici déjà le premier programme plus lisible :

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
#!/usr/bin/perl;
use warnings;
use strict;
 
my $part1 = 'ABC';
my $conc  = AJOUT($part1);
 
print "\n2eme ligne (demandee dans le main) : valeur de concatenation = $conc\n";
 
sub AJOUT {
  my ($ajout) = @_;
  my $part2 = 'DEF';
  $ajout .= $part2;
  print "\n1ere ligne (demandee dans la fonction): valeur de concatenation = $ajout\n";
  return $ajout;
}

Essaye d'en faire autant avec le deuxième

**Landraille** · 05/04/2011, 17h01

ça va comme ça?

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#!/usr/bin/perl
 
use strict;
use warnings;
use Tk;
 
my $mw = MainWindow->new();
$mw->minsize (500,500);
 
my $intro = $mw->Label(
  -text => 'Ajout morceau de variable',
  -relief => 'raised',
  -background => 'yellow',
)->pack(-fill => 'x');
 
 
my $part1 = 'ABC';
my $conc = '';
$conc = &AJOUT($part1);
 
print "\n2eme ligne (demandee dans le main) : valeur de concatenation = $conc\n";
 
MainLoop;
 
sub AJOUT {
  my ($ajout)=@_;
  my $entete_list=$mw->Label(-text=>'Que voulez vous ajouter?')->pack;
  my $list = $mw->Listbox()->pack;
  my $bouton_OK = $mw->Button(-text=> 'OK')->pack;
  $list->insert('end','ABC','DEF','GHI');
  $bouton_OK->configure(
    -command => sub {
      my $ID=$list->curselection();
      my $select=$list->get($ID);
      my $ajout .=$select;
      print "\n1ere ligne (demandee dans la fonction): valeur de concatenation = $ajout\n";
      return "$ajout";
    }
  );
}

**Landraille** · 11/04/2011, 11h21

Tu es en vacances Djibril?

**djibril** · 11/04/2011, 13h17

Ton message est normal vu que $conc = &AJOUT($part1);
ne retourne rien. Car au moment où la procédure est lancé, aucun clic sur le bouton n'a eu lieu. Donc $conc est à undef et le print génère le message d'avertissement.

**Landraille** · 11/04/2011, 14h31

Envoyé par djibril

Ton message est normal vu que $conc = &AJOUT($part1);
ne retourne rien. Car au moment où la procédure est lancé, aucun clic sur le bouton n'a eu lieu. Donc $conc est à undef et le print génère le message d'avertissement.

Je dois avouer que je suis vraiment perplexe. Pour perl, le programme effectue d'abord la fonction puis retourne la valeur à ma variable (c'est ce que j'en déduis avec mon 1er exemple).
Par contre, pour Perl/Tk, c'est le contraire d'où ce message d'erreur. Pour ne plus avoir ce message d'erreur, il ne faut donc pas que je passe par return mais plutot que j'utilise les variables globales comme ci dessous ?

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
#!/usr/bin/perl
 
use strict;
use warnings;
use Tk;
 
my $mw = MainWindow->new();
$mw->minsize (500,500);
 
my $intro = $mw->Label(
  -text => 'Ajout morceau de variable',
  -relief => 'raised',
  -background => 'yellow',
)->pack(-fill => 'x');
 
 
my $part1 = 'ABC';
my $conc = '';
&AJOUT($part1);
 
print "\n2eme ligne (demandee dans le main) : valeur de concatenation = $conc\n";
 
MainLoop;
 
sub AJOUT {
  my ($ajout)=@_;
  my $entete_list=$mw->Label(-text=>'Que voulez vous ajouter?')->pack;
  my $list = $mw->Listbox()->pack;
  my $bouton_OK = $mw->Button(-text=> 'OK')->pack;
  $list->insert('end','ABC','DEF','GHI');
  $bouton_OK->configure(
    -command => sub {
      my $ID=$list->curselection();
      my $select=$list->get($ID);
      $conc=$ajout.$select;
      print "\n1ere ligne (demandee dans la fonction): valeur de concatenation = $conc\n";
    }
  );
}

Le problème c'est que j'ai toujours la 2ème ligne qui s'écrit avant la première. Or je demande l'execution de la fonction avant l'écriture de la 2eme ligne. La seule explication logique (mais que je ne trouvais pas logique) qui m'est venue c'est un problème de priorité, comme je l'ai écrit dans un post précédent, je pensais qu'il executait d'abord tout le main puis les fonctions. J'ai alors tout mis dans le main :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
#!/usr/bin/perl
 
use strict;
use warnings;
use Tk;
 
my $mw = MainWindow->new();
$mw->minsize (500,500);
 
my $intro = $mw->Label(
  -text => 'Ajout morceau de variable',
  -relief => 'raised',
  -background => 'yellow',
)->pack(-fill => 'x');
 
 
my $part1 = 'ABC';
my $conc = '';
 
my $entete_list=$mw->Label(-text=>'Que voulez vous ajouter?')->pack;
my $list = $mw->Listbox()->pack;
my $bouton_OK = $mw->Button(-text=> 'OK')->pack;
$list->insert('end','ABC','DEF','GHI');
$bouton_OK->configure(
  -command => sub {
    my $ID=$list->curselection();
    my $select=$list->get($ID);
    $conc=$part1.$select;
    print "\n1ere ligne (demandee dans la fonction): valeur de concatenation = $conc\n";
  }
);
 
 
 
print "\n2eme ligne (demandee dans le main) : valeur de concatenation = $conc\n";
 
MainLoop;

Et là suprise, j'ai toujours la 2ème ligne avant la 1ère avec toujours la variable $conc vide pour la 2ème ligne.

Ce n'est donc plus un problème de récupération de variable issue d'une fonction (comme le titre du sujet le suppose) mais plutôt la recupération d'une variable issue d'un presse-bouton.
La seule solution que j'envisage est donc de tout mettre dans le sub de configure(-command :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#!/usr/bin/perl
 
use strict;
use warnings;
use Tk;
 
my $mw = MainWindow->new();
$mw->minsize (500,500);
 
my $intro = $mw->Label(
  -text => 'Ajout morceau de variable',
  -relief => 'raised',
  -background => 'yellow',
)->pack(-fill => 'x');
 
 
my $part1 = 'ABC';
my $conc = '';
 
my $entete_list=$mw->Label(-text=>'Que voulez vous ajouter?')->pack;
my $list = $mw->Listbox()->pack;
my $bouton_OK = $mw->Button(-text=> 'OK')->pack;
$list->insert('end','ABC','DEF','GHI');
$bouton_OK->configure(
  -command => sub {
    my $ID=$list->curselection();
    my $select=$list->get($ID);
    $conc=$part1.$select;
    print "\n1ere ligne (demandee dans la fonction): valeur de concatenation = $conc\n";
    print "\n2eme ligne (plus demandee dans le main) : valeur de concatenation = $conc\n";
 
  }
);

Donc ma question (oui, mon post est long, trop long, dsl) est : Comment passer en fonction un presse-bouton tout en récuperant dans le main la variable qui en découle?

**djibril** · 11/04/2011, 15h04

Tu as un souci de conception, c'est tout. Ce n'est pas une question de Perl ou de Perl/Tk mais juste un problème de conception, d'algorithme.

Tu appelles certes, ta fonction avant. Cette dernière n'a pour rôle que de créer une partie de l'interface graphique et c'est tout !!!!!!
Donc ta première ligne n'est pas affichée et ta variable est vide.
La première ligne ne s'affichera que via un clic bouton. Donc change ta logique.

récuperation d'une variable issue d'une fonction

Interfaces Graphiques Perl

Discussions similaires

Partager

Partager