Perl/tk problème de perte de caracteres dans une liste
Bonjour,
J'ai un problème de formatage des informations dans une liste sous Perl/TK.
En effet je perds les ESPACES lors de l'affectation de ma données dans un Widget de type liste.
Si je le liste sous Dos, le résultat
j imprime l variable param2 [Element1 Partie 1]
j imprime l variable param2 [Element2 Partie2]
j imprime l variable param2 [Elem3 partie3]
Si je fais la même chose dans mon objet de type ListeBox
j imprime l variable param2 [Element1Partie 1]
j imprime l variable param2 [Element2Partie2]
j imprime l variable param2 [Elem3partie3]
Les espaces ont disparus ?
Quelqu'un a t'il une bonne idée ?
Merci pour votre aide.
Voici mon code :
##############################
use strict;
use Tk;
my $Titre="Ceci est le titre de mon application";
# Création du TopLevel
my $top = MainWindow->new(-title => $Titre);
$top->minsize('500','400');
my $lst = $top->Listbox();
$lst->pack(-side => 'left', -fill => 'both', -expand => 1);
#################################################################################
# Création d'une liste
#################################################################################
# Création d'une liste
my @mon_tableau=("Element1 Partie 1", "Element2 Partie2", "Elem3 partie3");
print "\n\n\n";
foreach my $param2 (@mon_tableau) {
print "\nj imprime l variable param2 [$param2]";
$lst->insert('end', $param2);
} # FIn du foreach
MainLoop;
C'est un problème de version ??
Bonjour Arioch,
Merci pour ta réponse.
Moi je suis sous windows 2000 e en version V5.10.
This is perl, v5.10.0 built for MSWin32-x86-multi-thread
TK =804.028
Et dans la fenêtre TK, j'ai le résultat :
Element1Partie 1
Element2Partie2
Elem3partie3
J'ai quand même un espace après la partie 1.
En fait il ne s'agit pas d'ESPACE mais du caractère de TABULATION entre "Element1" et "Partie1".
Peux tu refaire un test Stp et me confirmer si dans ton Widget Liste tu as la tabulation qui apparait ?
Merci encore
Problème tabulation dans les Widgets
Salut
J'ai fait ce test avec ce tableau, car je me suis apercu que si je faisait :
print $Mavariable
Ce qui en sortait sous Dos était bien formaté, cela apparait bien en colonne sans problème. En fait le contenu de $Mavariable est issu d'un select sur une table avec plusieurs colonnes.
Par contre dès que l'affichage passait par le Widget de type ListeBox, mes espaces étaient bien conservés mais pas mes TABULATIONS. Je me retrouvais avec un tableau tout biscornu et mal formaté.
C'est pour cela que pour faire qques tests j'ai créé un tableau de 4 éléments avec des données séparées avec Espace ou Tabulation.
Et je n'arrive jamais à faire une sortie propre.
Même si je remplace tous les espaces par une Tabulation
my @mon_tableau=("Element1T PartieE 1" , "Element2T Partie2", "Elem3T partie3","E partieE 4");
Je ne sais pas comment faire ?