Email mit Anhang senden --> Anhang ist leer - #137680 (Netzwerkprogrammierung und Netzwerke mit Perl)

bianca

2010-05-27 19:53

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

Guest Danni
Freue mich über jeden Tipp was ich da zwecks encoding machen muss für binäre Dateien.

Erste Wahl: MIME::Lite !! Ganz klare Sache!!
Falle es damit tatsächlich nicht klappen sollte trotz Hinweis von pq, könnte die folgende sub die Datei in base64 kodieren. Damit klappt es dann auf jeden Fall, wenn die Datei vorher auch im binmode eingelesen wurde. Und dann natürlich Header (Content-Transfer-Encoding: base64) in der Mail dafür nicht vergessen!

Code (perl): (dl )

sub BASE64_ENCODE {
        my $daten = shift;
        return '' unless $daten;
        use integer;
        my $out = join '', map( pack('u',$_)=~ /^.(\S*)/, ($daten =~/(.{1,45})/gs));
        $out =~ tr|` -_|AA-Za-z0-9+/|;
        my $padding = (3 - length($daten) % 3) % 3;
        $out =~ s/.{$padding}$/'=' x $padding/e if $padding;
        $out =~ s/(.{1,76})/$1\n/g;
        $out;
}

10 print "Hallo"
20 goto 10