Pourquoi Email :: MIME scinde ma pièce jointe?

Question

Pourquoi la pièce jointe (environ 110 Ko) est-elle divisée en 10 parties (environ 11 Ko) lorsque je l'envoie avec ce script en utilisant Email::MIME?

#!/usr/bin/env perl 
use warnings; use strict; 

use Email::Sender::Transport::SMTP::TLS; 
my $mailer = Email::Sender::Transport::SMTP::TLS->new(
    host => 'smtp.my.host', 
    port => 587, 
    username => 'username', 
    password => 'password', 
); 

use Email::MIME::Creator; 
use IO::All; 
my @parts = ( 
    Email::MIME->create(
    attributes => { 
     content_type => 'text/plain', 
     disposition => 'inline', 
     encoding  => 'quoted-printable', 
     charset  => 'UTF-8', 
    }, 
    body => "Hello there!\n\nHow are you?", 
    ), 
    Email::MIME->create(
    attributes => { 
     filename  => "test.jpg", 
     content_type => "image/jpeg", 
     disposition => 'attachment', 
     encoding  => "base64", 
     name   => "test.jpg", 
    }, 
    body => io("test.jpg")->all, 
    ), 
); 
my $email = Email::MIME->create(
    header => [ From => 'my@address', To => 'your@address', Subject => 'subject', ], 
    parts => [ @parts ], 
); 

eval { 
    $mailer->send($email, { 
     from => 'my@address', 
     to => [ 'your@address' ], 
    }); 
}; 
die "Error sending email: $@" if $@; 

Answer 1

je peux vous proposer une solution de contournement: en utilisant MIME :: Lite au lieu

Answer 2

J'ai eu un cas similaire en utilisant MIME::Lite et Net::SMTP::TLS (en utilisant TLS plutôt que SSL parce que la connexion à smtp.gmail.com ne fonctionnait pas avec SSL) dans mon script Perl pour envoyer des e-mails avec des pièces jointes de feuille de calcul via un compte gmail, où les pièces jointes des feuilles de calcul étaient divisées en plusieurs fichiers de 10 Ko.

La solution était de remplacer Net :: SMTP :: TLS par Net::SMTP::TLS::ButMaintained, que je n'avais pas vu initialement. Le nouveau module TLS fonctionne très bien.