récupération de variable

**PadawanInPerl** · 25/11/2010, 13h20

Bonjour, j'ai un peu le même problème que :

http://www.developpez.net/forums/d90...t-widget-text/

J'ai ce type d'erreur : Tk::Entry=HASH(0x1cd84a4)

voici mon code :

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
#!/usr/local/bin/perl  -w
 
#chomp ($saisie = <STDIN>);
#print $saisie;
 
 
use warnings;
use strict;
use Tk;
use Tk::NoteBook;
 
 
my @liste;
my $codebarre;
 
sub subone {
 
  open OUT, ">>log.txt" or die;
  open IN, "+>liste.txt" or die;
 
  while ( my $line = <IN> ) {
    chomp $line;
    #my @liste=<IN>;
    @liste = $line;
     }
 
 
 
      if ("@liste" =~ /$codebarre/){
 
      print OUT $codebarre; # Inscription dans le fichier log/data/archive
 
      my $popup = MainWindow->new( -title => 'CONFIRMATION' );
      $popup->Label( -text => "Le code-barre $codebarre, fait bien partie du prêt inter-bibliothèques",)->pack();
      MainLoop;
 
      $codebarre=~ s/$codebarre//;
 
      }
 
    else {
    my $popneg = MainWindow->new( -title => 'N° INCONNU' );
      $popneg->Label( -text => "\n\nLe code-barre : $codebarre,\nne fait pas encore partie du prêt inter-bibliothèques.\n\nIl est donc ajouté.\n\n",)->pack();
      MainLoop;
    @liste = $codebarre;
    print IN @liste;
 
    }
 
  close IN;
  close OUT;
   return;
 
}
 
 
 
 
my $fenetre_principale = MainWindow->new( -title => 'onglet', -background => 'yellow', );
$fenetre_principale->minsize ( 300, 300);
$fenetre_principale->Label ( -text => "Prêt inter-bibliothèques",)->pack();
 
# blocnote
my $blocnote = $fenetre_principale->NoteBook(
  -backpagecolor => 'white',
  -inactivebackground => 'pink',
)->pack( qw/-fill both -expand 1/ );
 
# CREATION DES ONGLETS
my $controle = $blocnote->add("controle", -label => "Contrôle",);
my $ajout = $blocnote->add("ajout", -label => "Ajout",);
 
# ONGLET CONTROLE
 
$controle->Label( -text => "CONTRÔLE\n\nEntrer le code barre du document :",)->pack();
 
$controle->Label( -text => ' Code-barre : ')->pack( qw/ -side left/ );
$codebarre = $controle->Entry( )->pack( qw/ -side left/ );
$controle->Button(
 
  -text => 'Valider',
  -command => \&subone,
 
)->pack( qw/ -side left/ );
 
 
 
 
# ONGLET AJOUT
 
$ajout->Label( -text => "AJOUT\n\nEntrer le code barre du document :",)->pack();
 
$fenetre_principale->Button (
    -text => 'Bouton fermeture',
    -command => sub { exit; },
)->pack();
 
 
MainLoop;

Mon but étant d'insérer une série de chiffre et de la comparer à d'autres séries de chiffres contenues dans liste.txt, disposés :

1213156
1236456
3164646

J'ai lu la discution citée plus haut, je suis allé voir le TK::text...mais je ne suis pas encore au niveau

j'ai pas trouvé ma soluce

Merci pour votre aide...

**djibril** · 25/11/2010, 13h36

Dans ton code tu as écrit ceci :

Code :

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

$codebarre = $controle->Entry()->pack(qw/ -side left/);

Donc $codebarre est un Widget entry. C'est donc un objet et c'est normal qu'un

Code :

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

print $codebarre;

t'affiche Tk::Entry=HASH(0x1cd84a4).
Pour afficher la valeur entrée, comme expliqué dans la FAQ : les champs de saisies, il faut utiliser la méthode get.

Code :

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

print $codebarre->get;

**PadawanInPerl** · 25/11/2010, 14h03

Je comprend l'idée, mais malheureusement je n'arrive pas à ajouter mon sub (subone) avec ta remarque...

**djibril** · 25/11/2010, 14h16

Quelques conseils :

En Tk ou tout autre langage de programmation graphique, le code peut être très long et illisible, pensez à bien l'indenter
Utiliser des noms variables très clairs (ex : $codebarre = le numero de code barre, son nom, ou un champ de saisie ?), pour un champ de saisie, utilisez par exemple, $entry_codebarre, c'est tout de suite plus claire.
Éviter la déclaration de variables globales, on se mélange rapidement les pinceaux. Essayer au maximum de passer vos variables en arguments à vos procédures.
Déclarez vos procédures en fin de programmes, après le mainloop, c'est plus simple pour la lisibilité.
...

Voici ton code réécrit. C'est une façon comme une autre. Lis le bien et remarque comment je m'y suis pris pour l'architecturer, passer les paramètres, indentation, nom de variables et utilisation de popup via Tk::DialogBox. Teste le code, il est fonctionnel.

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
#!/usr/local/bin/perl
use warnings;
use strict;
use Tk;
use Tk::NoteBook;
use Tk::DialogBox;
 
# ===== Interface graphique =====
my $fenetre_principale = MainWindow->new( -title => 'onglet', -background => 'yellow', );
$fenetre_principale->minsize( 300, 300 );
$fenetre_principale->Label(
  -text       => "Prêt inter-bibliothèques",
  -background => 'yellow',
)->pack();
 
# blocnote
my $blocnote = $fenetre_principale->NoteBook(
  -backpagecolor      => 'white',
  -inactivebackground => 'pink',
)->pack(qw/-fill both -expand 1/);
 
# CREATION DES ONGLETS
my $onglet_controle = $blocnote->add( "controle", -label => "Contrôle", );
my $onglet_ajout    = $blocnote->add( "ajout",    -label => "Ajout", );
 
# ONGLET CONTROLE
$onglet_controle->Label( -text => "CONTRÔLE\n\nEntrer le code-barre du document :", )->pack();
$onglet_controle->Label( -text => ' Code-barre : ' )->pack(qw/ -side left/);
my $entree_codebarre = $onglet_controle->Entry()->pack(qw/ -side left/);
$onglet_controle->Button(
  -text    => 'Valider',
  -command => [ \&subone, $onglet_controle, $entree_codebarre ],
)->pack(qw/ -side left/);
 
# ONGLET AJOUT
$onglet_ajout->Label( -text => "AJOUT\n\nEntrer le code-barre du document :", )->pack();
 
$fenetre_principale->Button(
  -text    => 'Bouton fermeture',
  -command => sub { exit; },
)->pack();
 
MainLoop;
 
# ===== Procédures =====
sub subone {
  my ( $onglet, $entree_codebarre ) = @_;
 
  open OUT, '>>', 'log.txt'   or die("Ecriture impossible : $!");
  open IN,  '+<', 'liste.txt' or die("Lecture impossible : $!");
 
  my $codebarre_saisie = $entree_codebarre->get;
 
  unless ( defined $codebarre_saisie and $codebarre_saisie =~ /\S+/ ) {
    my $popup_erreur = $onglet->DialogBox(
      -title      => 'ERREUR',
      -buttons    => ['OK'],
      -background => 'white',
    );
    $popup_erreur->Label(
      -text       => "Vous n'avez fait aucune saisie",
      -background => 'white',
    )->pack();
    $popup_erreur->Subwidget("B_OK")->configure( -background => 'red', );
    $popup_erreur->Show();
    return;
  }
  my $codebarre_trouve = 0;
  while ( my $line = <IN> ) {
    chomp $line;
 
    # Comparaison des codebarre
    if ( $line eq $codebarre_saisie ) {
      print OUT "code-barre $codebarre_saisie connu\n";    # Inscription dans le fichier log/data/archive
      my $popup_confirmation = $onglet->DialogBox(
        -title      => 'CONFIRMATION',
        -background => 'white',
        -buttons    => ['OK'],
      );
      $popup_confirmation->Subwidget("B_OK")->configure( -background => 'green', );
      $popup_confirmation->Label(
        -text       => "Le code-barre $codebarre_saisie, fait bien partie du prêt inter-bibliothèques",
        -background => 'white',
      )->pack();
      $popup_confirmation->Show();
      $codebarre_trouve = 1;
      last;
    }
  }
 
  if ( $codebarre_trouve == 0 ) {
    my $popup_confirmation = $onglet->DialogBox(
      -title      => 'N° INCONNU',
      -background => 'white',
      -buttons    => ['OK'],
    );
    $popup_confirmation->Subwidget("B_OK")->configure( -background => '#00B9FF', );
    $popup_confirmation->Label(
      -text => "Le code-barre : $codebarre_saisie,\n"
        . "ne fait pas encore partie du prêt inter-bibliothèques.\n\n"
        . "Il est donc ajouté.\n\n",
      -background => 'white',
    )->pack();
    $popup_confirmation->Show();
    print IN $codebarre_saisie, "\n";
 
  }
  close(IN);
  close(OUT);
 
  return;
}