Invio mail

Esiste più di un modo per inviare mail da uno script perl. Descriviamo qui il più utilizzato.

Inviare mail mediante Sendmail

#!/usr/bin/perl
 
unless(open (MAIL, "|/usr/sbin/sendmail -t")) {
	print "error.\n";
	warn "Error starting sendmail: $!";
}
else{
	print MAIL "From: me\@mydom.com\n";
	print MAIL "To: test\@testdom.com\n";
	print MAIL "Subject: test subject\n\n";
	print MAIL "test mail message";
	close(MAIL) || warn "Error closing mail: $!";
	print "Mail sent.\n";
}

Ricordiamo che il destinatario può essere inserito direttamente quando viene richiamato il comando sendmail; lo script diventerà quindi:

#!/usr/bin/perl
 
unless(open (MAIL, "|/usr/sbin/sendmail recipient\@someplace.com")) {
	print "error.\n";
	warn "Error starting sendmail: $!";
}
else{
	print MAIL "From: me\@mydom.com\n";
	print MAIL "Subject: test subject\n\n";
	print MAIL "test mail message";
	close(MAIL) || warn "Error closing mail: $!";
	print "Mail sent\n";
}