[Perl tk] TK:tlist

Bonjour, j'ai récupéré un script sur le site suivant http://lionel.romain.free.fr/tlist.html, qui propose un cours sur perl tk, mais lorsuqe je test le script qui est présenté :

Code:

---

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

use Tk ; use Tk::TList;   @villes = qw ( Rouen Caen Cherbourg Bayeux Carentan Lisieux Falaise Argentan Saint-Lô Granville ) ;   sub ChoixVille { print "Ville choisie : " , $villes[$lt_villes -> info ( selection )] , "\n" ; }   # main   $fenetre = new MainWindow ( ) ; $fenetre -> title ( 'Villes' ) ;   $lt_villes = $fenetre -> TList ( -orient => 'vertical' , -selectmode => 'single' , -command => \&ChoixVille );   foreach $ville ( @villes ) { $lt_villes -> insert ( 'end' , -itemtype => 'text' , -text => $ville ) ; } $lt_villes -> pack ( -expand => 1 , -fill => 'both' ) ;   MainLoop ( ) ;

---

j'obtiens l'erreur suivante :

Code:

---

Use of reference "ARRAY(0x1ab8d2c)" as array index at TKList.pl line 8.

---

je ne comprends pas le fait que cette instruction

Code:

---

$villes[$lt_villes -> info ( selection )]

---

ne fonctionne pas alors que

Code:

---

print $lt_villes -> info ( selection )

---

me donne bien l'indice de l'element sur lequel je double clique (0,1 ou 2 etc.);

par conséquent :

Code:

---

$villes[$lt_villes -> info ( selection )]

---

devrait être égale à

Code:

---

$villes[0]

---

si je clique sur le premier element, 1 sur le second etc.

Merci

Je suis sous windows vista / activeperl 5.8.8

Tout d'abord : ON NE POSTE PAS SUR CE FORUM, on poste dans les sous-forums, comme indiqué dans le premier message "Important" sur ce forum (le sujet est en majuscule et c'est le premier sujet sur le forum, est-ce si difficile d'y jeter un coup d'oeil ??), je te déplace dans le sous-forum Module, mais fais un effort la prochaine fois !! :cry:

Il est pas très propre ce code... Pas de pragma "strict", ni de "warnings", un bareword selection, très espacé, mais à mon avis pas vraiment heureusement (séparer ainsi l'objet de la méthode me semble nuisible à la lisibilité, enfin les goûts et les couleurs ;) ).
Voici un code qui marche, et plus propre :

Code:

---

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

#!/usr/bin/perl use strict; use warnings;   use Tk; use Tk::TList;   my @villes = qw ( Rouen Caen Cherbourg Bayeux Carentan   Lisieux Falaise Argentan Saint-Lô Granville ) ;   # main   my $mw = new MainWindow( ) ; $mw->title( 'Villes' ) ;   my $lt_villes = $mw->TList( -orient => 'vertical' , -selectmode => 'single' , -command => \&choix_ville );   foreach my $ville ( @villes ) { $lt_villes -> insert ( 'end' , -itemtype => 'text' , -text => $ville ) ; } $lt_villes -> pack ( -expand => 1 , -fill => 'both' ) ;   MainLoop ( ) ;   # useful subs   # callbacks   sub choix_ville { print "Ville choisie : " , @villes[$lt_villes->info('selection')] , "\n" ; }   __END__

---

Tu remarqueras le changement de sigil (@ au lieu de $) devant villes, en temps normal tu aurais raison de mettre $, mais ici cela entraîne que "$lt_villes->info('selection')" est exécuté en contexte scalaire où cette méthode renvoie une référence à un tableau. Le @ signifie qu'on demande une tranche du tableau @villes, donc on a un tableau d'indices entre les [], donc $lt_villes->info('selection') est exécuté en contexte de tableau, où il renvoie bien une liste (ici constituée d'un seul élément).

Tu as une autre solution :

Code:

---

1 2 3 4

sub choix_ville { print "Ville choisie : " , $villes[$lt_villes->info('selection')->[0]] , "\n" ; }

---

--
Jedaï

Merci infiniment pour le script corrigé, et mille excuses pour ne pas avoir posté au bon endroit je ferai attention la prochaine fois. :sm: