MIME::Parser - Bareword "FH" not allowed while "strict subs"

Bonjour à tous,

je tente de mettre en place ce script extrait de l'article des mongueurs de=
Perl :

http://articles.mongueurs.net/magazines/linuxmag61.html

#!/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 = Net::POP3->new('pop.monfai.com')
or die "ne peut me connecter au serveur POP pop.monfai.com";
my $get = pop->get(1, FH) if $pop->login('lettre_mensuelle', 'secret'=
) > 0;

die "le message n'est pas encore arrivé" unless $get;

$pop->delete(1) if $get;
$pop->quit();

my $parser = MIME::Parser->new();
my $entity = $parser->parse(*FH);

my($body,$image_encoded);

for($entity->parts()) {
my $corps = $_->body();
my $head = $_->head()->as_string;

$body = join '', @$corps if $head =~ /content-type: text/plain=
/is;
$image_encoded = join '', @$corps if $head =~ /content-type: im=
age//is;
}

Hélas je me retrouve bloqué avec le message d'erreur suivant :

Bareword "FH" not allowed while "strict subs" in use at bug.pl line 12.

J'ai donc tenté de passer avec un my $fh mais malgré plusieurs tentativ=
es, je n'ai hélas pas réussi à trouver une solution fonctionnelle.

Merci d'avance de votre aide

Eric

---

• Partager ce contenu :