Предупреждающее сообщение от пакета электронного письма :: Просто ⇐ Linux

[Anonymous]

Я в настоящее время работаю над проектом по извлечению информации из электронных писем на одном из наших серверов (субъект, тело, вложения и т. Д.). /usr/share/perl5/vendor_perl/email/simple.pm строка 87.

Для информации, строка 87 в моей версии электронной почты :: simple

Код: Выделить всё

$head = substr $$text_ref, 0, $pos, '';
< /code>
Предупреждение поступает из строки кода: < /p>
my $email = Email::MIME->new(\$rawmail);
< /code>
Полный код: < /p>
use strict;
use warnings;

use Net::IMAP::Simple;
use Net::IMAP::Simple::SSL;
use IO::Socket::SSL;

use Email::Simple;
use Email::MIME;

my $VERBOSE=1;
my $params;

$params->{'IMAP'}='imapAccount';
$params->{'ID'}='imapID';
$params->{'PASS'}='imapPWORD';

#Connexion au serveur imap
IO::Socket::SSL::set_defaults(SSL_verify_mode => SSL_VERIFY_NONE) ;
my $imap = Net::IMAP::Simple::SSL->new($params->{'IMAP'}) or die "Unable to connect to IMAP: $Net::IMAP::Simple::errstr\n" ;
$imap->login($params->{'ID'}, $params->{'PASS'}) or die "Login failed: " . $imap->errstr . "\n";
my @search  = $imap->search_unseen ;

foreach my $imsg (@search){
my $uid = $imap->uid($imsg) ;
my $seq = $imap->seq($uid) ;
print "Analyse du mail $uid - $seq - $imsg  \n"  if ($VERBOSE) ;
my $rawmail =  $imap->get($imsg) or die "Can't get message :     $Net::IMAP::Simple::errstr\n";
my $email = Email::MIME->new(\$rawmail);
print "email subject:".$email->header('Subject') . "\n";
}
< /code>
info: < /p>
perl 5, version 26, subversion 3 (v5.26.3) on AlmaLinux 8.10 (Cerulean Leopard)
Email::Simple v2.216
Email::MIME v1.954

У кого -нибудь есть идеи, что может вызвать это предупреждение?>

Подробнее здесь: https://stackoverflow.com/questions/796 ... mailsimple