La forma rápida y sucia de enviar un archivo adjunto es codificar el archivo y enviarlo por correo.
uuencode report.pdf report.pdf | mail -s "Here is the report" [email protected]
Si desea hacerlo fácilmente y construir un mensaje codificado MIME adecuado, puede instalar mutt y usar la marca -a para adjuntar su mensaje.
Si no quieres instalar nada más, puedes crear tu propio mensaje MIME a mano o usar el módulo perl MIME :: Entity para ayudarte:
#!/usr/bin/perl
use MIME::Entity;
$message = MIME::Entity->build(
Type => "multipart/mixed",
From => "me\@company.com",
To => "bossman\@company.com",
Subject => "Report attached" );
$message->attach(Data=>"Here is the report, as promised.");
$message->attach(
Path => "./report.pdf",
Type => "application/pdf",
Encoding => "base64");
open MAIL, "| /usr/sbin/sendmail -t -oi";
$message->print(\*MAIL);
close MAIL;