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

[thread]15067[/thread]

Email mit Anhang senden --> Anhang ist leer

Leser: 21

Articles: hide open all | hide show old branches

+18 replies
Gast Danni

2010-05-27 18:34
Hallo zusammen,

ich versuche gerade ein kleines Skript zu bauen was in einem ersten Schritt eine TXT Per Emailanhang versendet. Wenn das läuft möchte ich die TXT durch ein BMP Bild ersetzen.

Die Mail wird schon versendet, jedoch bekommt ich als Anhang eine leere txt Datei. Was mache ich hier falsch?

Ist ein Perl 5.8.5 unter Windows XP.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

my $data_file="C:\\test\\test.txt"; open(DATA, $data_file) || die("Could not open the file"); my @file_content = DATA; close(DATA); my $smtp = Net::SMTP->new('company-smtp.net', Debug => 1, Timeout => 60) || print "couldn't create smtp obj: #$!"; $smtp->mail('ich@ich.com'); $smtp->to('ich@ich.com'); $smtp->data(); $smtp->datasend("To: Ich"); $smtp->datasend("From: Du"); $smtp->datasend("Subject: Testmail\n"); $smtp->datasend("MIME-Version: 1.0\n"); $smtp->datasend("Content-Disposition: attachment; filename=\"C:\\test\\test.txt\"\n"); $smtp->datasend("Content-Type: application/txt; name= test.txt "); $smtp->datasend(); $smtp->datasend($file_content); $smtp->dataend; $smtp->quit;
Danke und Gruss
Danni
Last edited: 2010-05-27 18:38:14 +0200 (CEST)
- pq
  
  2010-05-27 18:44
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  also ich würde dir ja eher zu MIME::Lite raten, da geht das mit den attachements etwas weniger umständlich.
  
  wenn du strict verwendet hättest, hätte perl dich gewarnt, dass du in zeile 5 zwar das array @file_content deklarierst, aber in zeile 21 den skalar $file_content verwendest. was soll dadrinstehen?
  in @file_content stehen die zeilen aus der datei.
  
  lies mal bitte use strict.
  
  und WasIsteinLexikalischerFileHandle kann auhc nicht schaden, ist aber erstmal nicht so dringend.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- +16 replies
- GwenDragon
  
  2010-05-27 18:49
  
  User since
  2005-01-17
  14866 Artikel
  Admin1
  
  Nun ja, du sendest ja nicht die Dateien in @file_content sondern die leere Variable $file_content.
  
  Anonstenm empfehle ich zum Versenden von Mail eher MIME::Lite, dann kannst du auch die Mailheader und Anhänge korrekt erzeuigen.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +15 replies
  - Gast Danni
    
    2010-05-27 19:20
    
    Hallo,
    
    danke für den Tipp. Das reicht aber leider nicht. Wenn ich das @file_content korrekt setze bekomme ich als Anhang an die Mail nicht mehr "test.txt" sondern "test.txt DATA"...komisch....aber auch diese Datei ist leer.
    
    Zwecks MIME::LITE --> würde ich gerne nutze ist nur auf dem Server nicht drauf wo ich aktuell probiere. Und installieren kann ich da leider nichts
    
    Gruss
    Danni
    Last edited: 2010-05-27 19:22:21 +0200 (CEST)
    - +9 replies
    - Gast Danni
      
      2010-05-27 19:27
      
      so jetzt gehts...hatte noch ein "\n" hinter dem Dateinamen gefehlt.
      
      Text geht jetzt...wenn ich allerdings etwas binäres Tiff Datei versenden will kommt zwar eine Datei in der korrekten Dateigrösse an, jedoch lässt sie sich nicht öffnen, da sie wohl binär falsch ist.
      
      Freue mich über jeden Tipp was ich da zwecks encoding machen muss für binäre Dateien.
      
      Danke und Gruss
      Danni
      Last edited: 2010-05-27 19:29:58 +0200 (CEST)
      - pq
        
        2010-05-27 19:30
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        Guest Danni
        Freue mich über jeden Tipp was ich da zwecks encoding machen muss für binäre Dateien.
        
        alles bei der perl-doku dabei: http://p3rl.org/perlopentut abschnitt binary files
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +7 replies
      - bianca
        
        2010-05-27 19:53
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        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 )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        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
        
        +6 replies
        
        pq
        
        2010-05-27 19:55
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        für base64-encoding nimmt man MIME::Base64, das ist seit 5.8 im core.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +5 replies
        
        bianca
        
        2010-05-27 19:57
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Ah, guter Hinweis.
        Warum hat man denn MIME::Lite nicht auch aufgenommen? Wäre doch sinnvoll und konsequent gewesen, oder?
        10 print "Hallo"
        20 goto 10
        
        +4 replies
        
        pq
        
        2010-05-27 20:00
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        klar, und LWP und DBI gleich auch noch... =)
        
        wozu muss das alles in den core? base64 wird wohl einfach so häufig genutzt, dass es lohnt, das in den core zu packen. und MIME::Lite ist wohl zum einen nicht so häufig genutzt und zum anderen ja einfach installierbar, zur not halt durch kopieren, wie ich schon erwähnte.
        
        wenn alles das ins core käme, was sich die leute wünschen, wäre perl so gross wie CPAN.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +3 replies
        
        bianca
        
        2010-05-27 20:01
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Schon klar, dass nicht alles rein kann.
        Aber wofür braucht man denn base64 noch außerhalb von E-Mails?
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        pq
        
        2010-05-27 20:25
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        na überall dort, wo ich keine binären daten übertragen kann aufgrund des protokolls. email ist nicht das einzige transportmittel im netz:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
        
        $ ack -cl MIME::Base64 lib/Net/SSH/Perl/Util/Hosts.pm:5 lib/Net/SSH/Perl/Key/RSA.pm:1 lib/Net/SSH/Perl/Key/DSA.pm:1 lib/Net/SSH/Perl/Key.pm:1 lib/Crypt/DSA/Signature.pm:2 lib/Crypt/DSA/Key/SSH2.pm:1 lib/Bundle/LWP.pm:1 lib/WWW/Mechanize/FAQ.pod:2 lib/HTTP/Message.pm:6 lib/HTTP/Headers.pm:3 lib/HTTP/Response.pm:3 lib/HTTP/Request/Common.pm:2 lib/URI/data.pm:1 lib/i486-linux-gnu-thread-multi/Digest/SHA.pm:2 lib/Module/CoreList.pm:18 lib/LWP/Authen/Basic.pm:2 lib/LWP/Authen/Ntlm.pm:1 lib/Convert/ASCII/Armour.pm:3 lib/Convert/PEM.pm:1 lib/Data/Dump.pm:4
        
        in meinem lokalen perl-libverzeichnis ausgeführt.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        bianca
        
        2010-05-27 20:27
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        OK, hab ich verstanden.
        10 print "Hallo"
        20 goto 10
    - +2 replies
    - GwenDragon
      
      2010-05-27 19:28
      
      User since
      2005-01-17
      14866 Artikel
      Admin1
      
      Code (perl): (dl )
      
      my @file_content = DATA;
      
      kann es nicht korrekt sein. Du liest ja gar nicht von der Datei, sondern weist dem Array eine Dateihandle zu.
      Schau dir bitte mal WasIsteinLexikalischerFileHandle an.
      
      Wenn schon, dann so korrekter:
      
      Code (perl): (dl )
      
      my @file_content = <DATA>;
      
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - pq
        
        2010-05-27 19:33
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        ah, dass da die <> klammern fehlen, habe ich übersehen.
        
        mir scheint, http://p3rl.org/perlopentut ist wirklich angebracht. hier fehlen Danni wohl ein paar grundlagen.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - +3 replies
    - pq
      
      2010-05-27 19:29
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      Guest Danni
      Das reicht aber leider nicht. Wenn ich das @file_content korrekt setze bekomme ich als Anhang an die Mail nicht mehr "test.txt" sondern "test.txt DATA"...komisch....aber auch diese Datei ist leer.
      
      nun, datasend() nimmt soweit ich das sehe, ein einziges argument entgegen.
      
      du hast in @file_content die liste von zeilen.
      
      was du übergeben musst, ist einen skalar, der alle zeilen aneinandergehängt beinhaltet.
      was du jetzt aber stattdessen gemacht hast, ist, das array mit den zeilen übergeben, und datasend() nimmt dann halt nur die erste zeile als argument.
      
      du musst entweder gleich alles in einen skalar einlesen oder später die zeilen aus @file_content zu einem string zusammenfügen.
      wie lange programmierst du denn schon perl?
      
      Code (perl): (dl )
      
      1 2 3 4
      
      my $file_content = do { local $/; <DATA> }; # oder my @file_content = <DATA>; my $string = join '', @file_content;
      
      Quote
      Zwecks MIME::LITE --> würde ich gerne nutze ist nur auf dem Server nicht drauf wo ich aktuell probiere. Und installieren kann ich da leider nichts
      
      es behaupten immer wieder viele leute "ich kann nix nachinstallieren".
      das ist aber in vielen fällen ein trugschluss.
      bitte einmal lesen: ModuleWieInstalliereIchEinModul
      
      MIME::Lite ist pureperl, es sollte also mit der kopier-variante funktionieren.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +2 replies
      - Gast Danni
        
        2010-05-27 21:41
        
        2010-05-27T17:29:18 pq
        wie lange programmierst du denn schon perl?
        
        nicht lange...um genau zu sagen 2 Tage. Brauche nur dieses eine Skript dann muss ich wieder was anderes machen.
        
        2010-05-27T17:29:18 pq
        MIME::Lite ist pureperl, es sollte also mit der kopier-variante funktionieren.
        
        habe ich sogar schon probiert. Nur leider hat das Ding wohl noch Unmengen Abhängigkeiten. Habe es auf jeden Fall nicht zum Laufen bekommen. Vielleicht hab ichs auch falsch gemacht.
        
        Danni
        Last edited: 2010-05-27 21:44:50 +0200 (CEST)
        
        topeg
        
        2010-05-27 22:53
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Kopiere einfach die Datei "Lite.pm" (von cpan: Lite.pm ) in einen Ordner "MIME" der im selben Ordner wie das Script liegt. Dann sollte Perl das Modul finden. (mit use MIME::Lite; eingebunden)
        Wenn es nicht funktionieren sollte, kann man das nutzen von externen Modulen in MIME::Lite mittels $MIME::Lite::PARANOID=1 unterdrücken. Bis auf "Net::SMTP" wird dann kein externes Modul genutzt.

View all threads created 2010-05-27 18:34.