Discussion :

[cyberps2]

Bonjour,

J'ai une situation étrange que je ne comprends pas.
Je tente de récupérer les mails d'une boite (en pop). Cela fonctionne bien en l'affichant dans le terminal, mais lorsque je veux insérer le résultat dans un widget text, je n'obtiens pas le même résultat.

Code :

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

1
2
3
4
5
6
7
8
9
 
if ($pop->login($User, $Password) > 0) {
        my $msgList = $pop->list();
        foreach my $msg (keys(%$msgList)) {
             my $ref = $pop->top($msg, 20);
             print @$ref;
             print "\n\n";
        }
}

si j'ajoute cette ligne à la place du print :

Code :

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

$Message->insert('end', @$ref."\n");

eh bien j'obtiens des chiffres dont je ne comprends pas le lien avec les messages.

Avez-vous une idée ?

[djibril]

et ça ?

Code :

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

$Message->insert('end', @{$ref}."\n");

[cyberps2]

non plus..

Pourtant même de cette façon, cela fonctionne bien dans le terminal.

Je ne trouve pas d'où sorte ces numéros dans le widget.

Je vais tester avec d'autres widgets

[cyberps2]

hum, même soucis avec d'autres widgets

[djibril]

Essaye ceci :

Code :

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

$Message->insert('end', @{$ref}."\n");

ou

Code :

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

$Message->insert('end', "@{$ref}\n");

ou

Code :

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

1
2
3
foreach ( @{$ref} ) {
  $Message->insert('end', "$_\n");
}

Peux tu nous donner aussi des exemples d'affichage !! Est-ce que le nombre qui s'affiche correspond au nombre d'éléments du tableau ?

[cyberps2]

Désolé pour la réponse tardive.

Donc cette solution fonctionne parfaitement, merci beaucoup

Essaye ceci :

Code :

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

$Message->insert('end', "@{$ref}\n");

Il fallait tout saisir entre guillemets alors ?