Perl-如何发送本地邮件？

Question

I would like to integrate the following terminal command into a Perl script.

Terminal command:

mutt -s "User Monitoring" -a "/home/mipa/Documents/System_Monitoring/protocol_name.csv" -- mipa@localhost.localdomain

The command sends local mail containing a file attachment to a user on the same system.

I have a small problem with the command though. It does seem to require more user interaction than just the command listed here. The command requires the user to follow a menu to confirm the values and hit the "y" key to send.

My question here is two-folded. Is there a similar mail command that does not require user interaction and works by just following a single command with predefined flags? And how would I integrate this command into a Perl script where I would be able to choose the file name, and the receiving user followed by issuing the command?

Any guidance regarding a possible solution is highly appreciated.

Answer 1

1. there are a few ways to send command line emails in Linux: How do I send a file as an email attachment using Linux command line?
2. why is the -- in your command? that maybe confusing mutt .
3. https://unix.stackexchange.com/questions/108916/automatically-attach-a-file-to-a-mail-with-mutt has a few more suggestions for sending mail with mutt .

Answer 2

I prefer to use MIME::Lite to send emails, rather than spawning an external command, which avoids the problems you are having. MIME::Lite is able to handle sending emails with attachments.

Here is a quick example:

#!/usr/bin/perl

use strict;
use MIME::Lite;

my $msg = MIME::Lite->new(
    To      => 'foo.bar@foobar.com',
    Subject => 'Test message with attachments',
    Type    => 'multipart/mixed'
);

$msg->attach(
    Type     => 'TEXT',
    Data     => "Here's the file you wanted"
);
$msg->attach(
    Type     => 'image/png',
    Path     => 'somefile.png',
    Filename => 'somefile.png',
    Disposition => 'attachment'
);

$msg->send();

This would send a message containing a small amount of text and a single attachment.

There are a lot more examples given in the POD for MIME::Lite .