Attachment bei E-Mail

[Reiner Rusch]

Und so würde ich es in Perl machen:

....
use MIME::Lite;

$mailprog = '/usr/lib/sendmail';
$attachedFile = "daten.zip";
$recipient = '[e-mail]';

$object = MIME::Lite->new(
    From        =>'Name',
    To          =>"$recipient",
    Subject     =>'Betreff',
    Type        =>'application/x-tar',
    Encoding    =>'base64',
    Path        =>"$attachedFile");

open (MAIL, "$mailprog $recipient") die "Fehler beim Öffnen: $mailprog!\n";
  $object->print (\*MAIL);
  close MAIL;
....

Das kann man als Unterroutine prima einbinden!
Du benötigst dazu MIME::LITE !
Findest du auf: < http://www.cpan.org>

Reiner