Sui sistemi unix un modo E questo:

#!/usr/bin/perl

use strict;

my $sendmail="/usr/bin/sendmail"; #percorso di sendmail

open(MAIL, "| $sendmail ") or die "$!";

my $nome_allegato="mioallegato.dat"; #nome dell'allegato
my $type = "APPLICATION/octet-stream" #tipo dell'allegato;
my $path = "/home/utente/"; #percorso
my $text = "Testo dell'email"; #testo dell'email

open (ATTACH, "cat $path$nome_allegato | mimencode |") or die "$!";

print MAIL "To: to@sito.net\n";
print MAIL "Cc: cc@sito.net\n";
print MAIL "From: from@sito.net\n";
print MAIL "Subject: oggetto\n";

print MAIL "MIME-Version: 1.0\n";
print MAIL "Content-Type: multipart/mixed; boundary="8=--"\n";
print MAIL "\n";
print MAIL "--8=--\n";
print MAIL "\n";
print MAIL "$text\n";
print MAIL "\n";
print MAIL "--8=--\n";
print MAIL "Content-Type: $type\n";
print MAIL "Content-Transfer-Encoding: BASE64\n";
print MAIL "Content-Disposition: attachment; filename=\"$nome_allegato\"\n";
print MAIL "\n";

while () {print MAIL} close ATTACH;

print MAIL "\n";
print MAIL "\n";
print MAIL "--8=----\n"

close( MAIL );

indietro