#!/usr/bin/perl -w
use strict;
use Net::POP3;
use Net::SMTP;
use MIME::Parser;
use MIME::Entity;
use MIME::Lite;
use POSIX 'strftime';
my $pop =3D Net::POP3->new('pop.monfai.com')
or die "ne peut me connecter au serveur POP pop.monfai.com\n";
my $get =3D pop->get(1, FH) if $pop->login('lettre_mensuelle', 'secret'=
) > 0;
die "le message n'est pas encore arriv=E9\n" unless $get;
$pop->delete(1) if $get;
$pop->quit();
my $parser =3D MIME::Parser->new();
my $entity =3D $parser->parse(\*FH);
my($body,$image_encoded);
for($entity->parts()) {
my $corps =3D $_->body();
my $head =3D $_->head()->as_string;
$body =3D join '', @$corps if $head =3D~ /content-type: text\/plain=
/is;
$image_encoded =3D join '', @$corps if $head =3D~ /content-type: im=
age\//is;
}
=20
H=E9las je me retrouve bloqu=E9 avec le message d'erreur suivant :
Bareword "FH" not allowed while "strict subs" in use at bug.pl line 12.
=09
J'ai donc tent=E9 de passer avec un my $fh mais malgr=E9 plusieurs tentativ=
es, je n'ai h=E9las pas r=E9ussi =E0 trouver une solution fonctionnelle.
=09
Merci d'avance de votre aide