Wolfram Lehmann: Senden eines Textfiles mit Mail aus Perl

SELF-Forum

Senden eines Textfiles mit Mail aus Perl

Wolfram Lehmann
– Informationen zu den Bewertungsregeln

Ich habe folgendes Problem:

Ich erfasse Daten mit einem Perlscript, schreibe diese in eine Datei und möchte diese an eine
bestimmte E-Mail-Adresse ohne weitere vorherige Abfrage schicken.

Das Versenden der Daten klappt prinzipiell lt. Dank Hilfe von SELFHTML bisher nur so:
mit Dateiauswahl und Submit:

Absenden E-mail mit Datenfile

print "Content-type: text/html\n\n";
print "<html><body>";
print "<FORM ENCTYPE='multipart/form-data' ACTION='mailto:wolfram@pommerngreif.de' METHOD=POST>";
print "<INPUT NAME='file1' TYPE='file'><INPUT TYPE='submit' VALUE='Send File'>";
print "</FORM>";
print "</body></html>";
              
Wie kann ich die Dateiauswahl und den Submit-Button umgehen.

Vielen Dank,

Wolfram

Beitrag melden
–
Informationen zu den Bewertungsregeln

  1. Senden eines Textfiles mit Mail aus Perl

    Christina Schantin
    – Informationen zu den Bewertungsregeln

    Hallo,

    versuche es mal so:

    lade Dir aus dem Internet von einer CPAN-Seite (z. B.: ftp://ftp.uni-hamburg.de/pub/soft/lang/perl/CPAN/modules/by-module/MIME/

    die Bibliothek  MIME-Lite ... und installiere sie auf Deinem Rechner. Zu jeder Bibliothek gibt es eine Readme, die Du auf alle Faelle lesen solltest.

    Danach funktioniert folgender Quellcode:

    use MIME::Lite;

    $msg = new MIME::Lite
         From        => 'mail@address',,
         To            =>  'your.mail@address',  
         cc          =>    'other.mail@address',      
         Subject     => 'subject',
         Type        => 'multipart/mixed';
      
    attach $msg
         Type        => 'text',
         Path        => 'directory and filname',
         Encoding    => 'quoted-printable',
         Filename    => 'filename';

    $msg->send();

    Viel Spass noch!

    Christina

    Beitrag melden
    –
    Informationen zu den Bewertungsregeln