Discussion :

[pyknite]

hello

j'ai un petit problème avec des mail.... j'utilise Mail:OP3Client pour récuperer des mail sur gmail... la ca marche, pas de soucis

le probleme c'est que je souhaite récuperer l'addresse mail de l'expéditeur dans le header du mail. Et c'est la que ca coince... j'ai essayer les regexp, foireux, j'ai essayer mail::address, mail::header, les deux foireux... et je dois dire que ca commence a m'énerver

si quelqu'un a une idée, ca serait sympa

merci d'avance

ps: j'ai cherché sur le forum, sur google, j'ai demandé de l'aide sur #perl... rien à faire

[Jedai]

Désolé, mais avant de te répondre j'aimerais voir ton code. Tu dis que même sur #perl tu n'as pas trouvé la réponse ? Je suis surpris.

--
Jedaï

[pyknite]

ben enfait plein de gens on voulu m'aider, mais c'était un peu la galère à cause de mon "poor english"

pour l'instant comme code, j'ai juste la procedure de connection a la boite et la recuperation d'un mail...

[Jedai]

Hmm... J'aurais bien aimé voir ton essai avec les Regexps, parce que je te signale que le code suivant est le premier exemple de la doc du module :

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
#!/usr/bin/perl
use strict; use warnings;
 
use Mail::POP3Client;
 
my $pop = new Mail::POP3Client( USER     => "Ton nom d'utilisateur",
				PASSWORD => "Ton Password",
				HOST     => "pop.gmail.com",
				TIMEOUT => 10,
				USESSL => 1,
				PORT => 995);
 
 
for my $i (1..$pop->Count()) {
  foreach( $pop->Head( $i ) ) {
    m/^(From|Subject):\s+/i && print $_, "\n";
  }
}
 
$pop->Close();

--
Jedaï

[pyknite]

hum, oui je l'ai vu cet exemple... mais il semblait plus propre d'utiliser un module pour faire ca...