perl et les mail

Version imprimable

21/02/2008, 16h34
pyknite

perl et les mail

hello

j'ai un petit problème avec des mail.... j'utilise Mail::POP3Client 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 :(
21/02/2008, 16h57
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ï
21/02/2008, 17h26
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...

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:

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ï

21/02/2008, 18h48
pyknite

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