问在Perl中发送文本附件的问题

EN

sub SendMail {
    my $subject = shift;
    my @message = @_;
    my $sender;

    my $MIME_BOUNDARY = '====Multipart.Boundary.689464861147414354====';
    my $now = strftime("%Y-%m-%d %H:%M:%S", localtime);
    my @addresses = split(",", $ENV{ADMIN_MAIL});
    my $sender = $ENV{USER} || $ENV{USERNAME};
    $sender .= "\@" . hostname();
    my $smtp = Net::SMTP->new($ENV{MAILHOST} || 'mailhost', Debug => 1);
    unless ( $smtp ) {
        die "Error while sending notification mail. Not connected to SMTP server.";
    }
    $smtp->mail( $addresses[0] );
    $smtp->recipient( @addresses );
    $smtp->data;
    $smtp->datasend("From: $sender\n");
    $smtp->datasend("To: " . join(",", @addresses) . "\n");
    $smtp->datasend("Subject: $subject\n");
    $smtp->datasend("Date: " . strftime("%a, %d %b %Y %H:%M:%S %z", localtime) . "\n");     

    if ( @log_messages ) {
        $smtp->datasend("Mime-Version: 1.0\n");
        $smtp->datasend("Content-Type: multipart/mixed; boundary=\"$MIME_BOUNDARY\"\n");
        $smtp->datasend("This is a multipart message in MIME format.\n");
        $smtp->datasend("--$MIME_BOUNDARY\n");
    }

    $smtp->datasend("Content-type: text/plain; charset=UTF-8\n");
    $smtp->datasend("Content-Disposition: quoted-printable\n");
    $smtp->datasend("\n");
    foreach ( @message ) { $smtp->datasend("$_\n") }
    $smtp->datasend("\n\n");
    $smtp->datasend("Message from " . hostname() . " (PID=$$) sent by 'LogDumper.pl' at $now");
    $smtp->datasend("\n");

    if ( @log_messages ) {
        $smtp->datasend("\n");
        $smtp->datasend("--$MIME_BOUNDARY\n");
        $smtp->datasend("Content-Type: text/plain; name=\"logs.txt\"\n");
        $smtp->datasend("Content-Disposition: attachment; filename=\"logs.txt\"\n");
        $smtp->datasend("\n");
        foreach ( @log_messages ) { $smtp->datasend("$_\n") }
        $smtp->datasend("\n");
        $smtp->datasend("--$MIME_BOUNDARY--\n");
    }

    $smtp->dataend;
    $smtp->quit;

}

my @log_messages;
push @log_messages, "Line 1";
push @log_messages, "Line 2";
SendMail("The Subject", "The Message");

Net::SMTP=GLOB(0x7a78a40)<<< 354 Start mail input; end with <CRLF>.<CRLF>
Net::SMTP=GLOB(0x7a78a40)>>> From: Domscheit@xxxxx
Net::SMTP=GLOB(0x7a78a40)>>> To: wernfried.domscheit@xxxxx.xxx
Net::SMTP=GLOB(0x7a78a40)>>> Subject: The Suject
Net::SMTP=GLOB(0x7a78a40)>>> Date: Mo, 01 Okt 2018 10:15:57 W. Europe Daylight Time
Net::SMTP=GLOB(0x7a78a40)>>> Mime-Version: 1.0
Net::SMTP=GLOB(0x7a78a40)>>> Content-Type: multipart/mixed; boundary="====Multipart.Boundary.689464861147414354===="
Net::SMTP=GLOB(0x7a78a40)>>> This is a multipart message in MIME format.
Net::SMTP=GLOB(0x7a78a40)>>> --====Multipart.Boundary.689464861147414354====
Net::SMTP=GLOB(0x7a78a40)>>> Content-type: text/plain; charset=UTF-8
Net::SMTP=GLOB(0x7a78a40)>>> Content-Disposition: quoted-printable
Net::SMTP=GLOB(0x7a78a40)>>> The Message
Net::SMTP=GLOB(0x7a78a40)>>> Message from xxxxx (PID=8072) sent by 'LogDumper.pl' at 2018-10-01 10:15:54
Net::SMTP=GLOB(0x7a78a40)>>> --====Multipart.Boundary.689464861147414354====
Net::SMTP=GLOB(0x7a78a40)>>> Content-Type: text/plain; name="logs.txt"
Net::SMTP=GLOB(0x7a78a40)>>> Content-Disposition: attachment; filename="logs.txt"
Net::SMTP=GLOB(0x7a78a40)>>> Line 1
Net::SMTP=GLOB(0x7a78a40)>>> Line 2
Net::SMTP=GLOB(0x7a78a40)>>> --====Multipart.Boundary.689464861147414354====--
Net::SMTP=GLOB(0x7a78a40)>>> .
Net::SMTP: Unexpected EOF on command channel at C:\Developing\Source\LogDumper.pl line 1271.