Perl SMTP - viele Empfänger über Excelliste (Installation und Konfiguration)

[thread]13630[/thread]

Perl SMTP - viele Empfänger über Excelliste

Leser: 16

Articles: hide open all | hide show old branches

+16 replies
kazar

2009-06-11 18:29
User since
2009-06-11
8 Artikel
BenutzerIn
Hallo

kurz möchte ich mein Problem beschreiben. Das Perlprogramm ließt aus einer Excelliste Namen und Emailadressen aus - füllt diese Werte in Skalare die dann in einer normalen For schleife mithilfe von SMTP
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 24 25

for($n=0;$n<$mylastRow-1;$n++) { $account = 'test.de'; $smtphost = 'mail.test.de'; $smtp = Net::SMTP->new($smtphost, Hello => $account, timeout => 360); $absender = 'mail@mail.de'; $smtp->mail($absender); #diese Zeile ist entscheiend! wird hier für ein fester Wert eingebeben (z.b. test@web.de) funktioniert alles, ich hab auch darauf geachtet das die Emailadressen im Skalar ($arrayBneu) auch /@ verwendet wurde $smtp->to('$arrayBneu[$n]'); $smtp->data(); $smtp->datasend("Subject: Pruefungsergebnisse\n"); $smtp->datasend("To: $arrayBneu[$n]\n"); $smtp->datasend("Hallo $arrayAneu[$n],\n"); $smtp->dataend(); $smtp->quit; if($n<$mylastRow-1){ sleep(10); } }
alles funktioniert sobald ich nicht das Array nehme, per Print liefert es aber auch während der FOR Schleife stets korrekte Werte. Die Schleife wird übrigends über die Excelliste (bzw über die Anzahl der Zeilen gesteuert => mylastRow-1)

Hat jemand eine Ahnung?

VIELEN DANK
- +5 replies
- GwenDragon
  
  2009-06-11 19:28
  
  User since
  2005-01-17
  14745 Artikel
  Admin1
  
  Wo in welcher Zeile funktioniert was denn nicht? Irgendeien Fehlermeldung?
  Werden denn immer gültige Daten in deine Arrays gefüllt?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - kazar
    
    2009-06-11 20:05
    
    User since
    2009-06-11
    8 Artikel
    BenutzerIn
    
    2009-06-11T17:28:45 GwenDragon
    Wo in welcher Zeile funktioniert was denn nicht? Irgendeien Fehlermeldung?
    Werden denn immer gültige Daten in deine Arrays gefüllt?
    
    Ja wird korrekt gefüllt, mit print funktioniert das natürlich
    die Schleife wird korrekt durchgeführt sowie alle Email Adressen werden richtig ausgegeben
    Zeile 15 funktioniert nicht
    - GwenDragon
      
      2009-06-11 20:16
      
      User since
      2005-01-17
      14745 Artikel
      Admin1
      
      Ja, und wenn in Zeile 15 der Fehler ist wie testest du es dann mit print?
      Ich weiß ja wo es hakt, aber ich würde gern wissen, ob du die Fehlersuche richtig ausgestaltest. ;)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +2 replies
    - GwenDragon
      
      2009-06-11 20:28
      
      User since
      2005-01-17
      14745 Artikel
      Admin1
      
      Mach doch mal folgendes, füge Debugging in Zeile 7 hinzu, dann sagt dir Net-SMTP schon was faul ist.
      
      Code: (dl )
      
      $smtp = Net::SMTP->new($smtphost, Hello => $account, timeout => 360, Debug => 1);
      
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - kazar
        
        2009-06-11 20:34
        
        User since
        2009-06-11
        8 Artikel
        BenutzerIn
        
        habsch doch auch schon probiert ;)
        er sacht gar nüscht - werden derartige logs auf dem SMTP Server gespeichert (zusätzlich)?
- +4 replies
- pq
  
  2009-06-11 19:40
  User since
  2003-08-04
  12208 Artikel
  Admin1
  2009-06-11T16:29:52 kazar
  
  Code: (dl )
  
  1 2 3 4
  
  #diese Zeile ist entscheiend! wird hier für ein fester Wert eingebeben #(z.b. test@web.de) funktioniert alles, ich hab auch darauf geachtet das #die Emailadressen im Skalar ($arrayBneu) auch /@ verwendet wurde $smtp->to('$arrayBneu[$n]');
  
  tja, kein wunder. bitte mal perlintro lesen. suche nach dem wort 'interpoliert', wenn du neugierig bist, aber du solltest das dokument trotzdem ganz lesen =)
  alternativ sage ich einfach "debugging". wenn etwas nicht so funktioniert wie gewünscht, schreib doch einfach ein print in dein skript.
  was liefert print '$arrayBneu[$n]' . "\n";?
  
  edit: und ich hoffe, dass du nicht in der excel-datei adressen wie foo\@example.org drinstehen hast. (ich nehme an, du meintest statt /@ \@)
  das wäre nämlich quatsch. warum sollte man ein @ zeichen in einer datei escapen?
  Last edited: 2009-06-11 19:43:36 +0200 (CEST)
  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
  - kazar
    
    2009-06-11 20:09
    User since
    2009-06-11
    8 Artikel
    BenutzerIn
    
    2009-06-11T17:40:54 pq
    2009-06-11T16:29:52 kazar
    
    Code: (dl )
    
    1 2 3 4
    
    #diese Zeile ist entscheiend! wird hier für ein fester Wert eingebeben #(z.b. test@web.de) funktioniert alles, ich hab auch darauf geachtet das #die Emailadressen im Skalar ($arrayBneu) auch /@ verwendet wurde $smtp->to('$arrayBneu[$n]');
    
    tja, kein wunder. bitte mal perlintro lesen. suche nach dem wort 'interpoliert', wenn du neugierig bist, aber du solltest das dokument trotzdem ganz lesen =)
    alternativ sage ich einfach "debugging". wenn etwas nicht so funktioniert wie gewünscht, schreib doch einfach ein print in dein skript.
    was liefert print '$arrayBneu[$n]' . "\n";?
    
    edit: und ich hoffe, dass du nicht in der excel-datei adressen wie foo\@example.org drinstehen hast. (ich nehme an, du meintest statt /@ \@)
    das wäre nämlich quatsch. warum sollte man ein @ Zeichen in einer datei escapen?
    
    habe selbstverständlich kein \@ in der Exceltabelle stehen, dort steht alles ganz normal mit @
    
    Ich habe in einem anderen Forum nur gelesen das man bei Fehler bei der Empfängeradresse ggf die (z.b. in einer Textdatei) gespeicherte Emailadresse das @ durch \@ austauscht - wurde natürlich auch ohne diesen Austausch getestet...
    
    debugging liefert gar keine Werte zurück, mit einer einzigen Emailadresse funktioniert alles einwandfrei, der SMTP liefert auch keine Fehlermeldung zurück
    - +2 replies
    - pq
      
      2009-06-11 20:24
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      du weisst, an welcher stelle es hakt, du hast genau die richtige zeile markiert. ich gab dir den hinweis, wo du in perldoc perlintro nachlesen musst =)
      und dass mein beispiel-debugging-statement "gar keine Werte zurückliefert", kann ich so nicht glauben.
      
      Code: (dl )
      
      1 2 3 4 5 6 7
      
      perl -w my @array = qw/ test /; my $n = 0; print '$array[$n]' . "\n"; # ausgabe $array[$n]
      
      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
      - kazar
        
        2009-06-11 20:39
        
        User since
        2009-06-11
        8 Artikel
        BenutzerIn
        
        ach jetzt wieß ich auf was du hinaus willst xD
        gott hab ich heute eine latenz - lektion verstanden :D
- +6 replies
- kazar
  
  2009-06-11 20:33
  
  User since
  2009-06-11
  8 Artikel
  BenutzerIn
  
  schonmal danke euch 2 ;) bastel nun schon ne weile und komm net weiter, werde mir das mal als Telnet Session anschauen, vllt sagt die mir mehr
  
  ps: suche von "interpoliert" in der Perl intro ergab keinen Treffen xD
  
  pss: print '$arrayBneu[$n]' . "\n";
  liefert die Emailadresse die in der Excelliste stehen
  
  test@test.example
  blabla@test.example
  irgendwas@irgendwas.example
  
  usw (Emails wurden hierfür geändert ;) )
  
  mod-edit pq: email-adressen in beispiel-adressen geändert
  Last edited: 2009-06-11 20:44:28 +0200 (CEST)
  - +5 replies
  - pq
    
    2009-06-11 20:41
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    2009-06-11T18:33:47 kazar
    ps: suche von "interpoliert" in der Perl intro ergab keinen Treffen xD
    
    vielleicht ist dein browser kaputt. ich gab dir den link perlintro, und dort steht beim ersten treffer genau das, was du wissen musst:
    
    Quote
    Allerdings werden Variablen und spezielle Zeichen nur in doppelten Anführungszeichen ("double quotes") interpoliert [...]
    
    wenn du nicht dem link gefolgt bist, sondern perlintro in der kommandozeile angeschaut hast, dann *kann* ja kein treffer kommen, das ist ja schliesslich ein deutsches wort! ein bisschen nachdenken hätte ich dir schon zugetraut. in der englischen doku suche entsprechend nach "interpolate"
    
    Quote
    pss: print '$arrayBneu[$n]' . "\n";
    liefert die Emailadresse die in der Excelliste stehen
    
    wow, dann ist nicht nur dein browser kaputt, sondern auch dein perl. faszinierend. ich vermute aber eher, dass du mein print-statement nicht genauso übernommen hast. warum nicht? das ist doch genau das, worauf es ankommt. wenn du es veränderst, kommst du nie auf die lösung.
    
    vergleiche mein statement genau mit dem debugging-statement, welches du verwendest hast, und dann siehst du den unterschied schon.
    interessant wäre auch, was du zu meinem kleinen code-beispiel sagst. wenn das auch eine andere ausgabe liefert, dann solltest du einen bugreport für perl schreiben.
    
    Quote
    Emails wurden hierfür geändert ;)
    
    dafür gibt es extra test-domains. die domain test.de gehört der stiftung warentest. nimm bitte in zukunft example.org oder example.com, genau dafür sind diese domains da.
    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
    - +4 replies
    - kazar
      
      2009-06-11 20:47
      
      User since
      2009-06-11
      8 Artikel
      BenutzerIn
      
      mit den doppel quotes habe ich schon erkannt ;) steht auch oben direkt unter deiner antwort
      
      zu den emailadresse: die Emailaddressen wurden hierbei nur als Demonstrationszweck verwendet und entsprechen selbstverständlich NICHT den Emailaddressen die für den Praxistest heran gezogen wurden ;)
      
      ps: an den Doppelquotes lag es nicht, ob nun "" Verwendet wurden oder keine - löst nicht das Problem, weiß gar net wie SingleQuotes hier rein kamen..
      - +3 replies
      - pq
        
        2009-06-11 20:56
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        du sagst aber, es klappt, wenn du stattdessen eine adresse von hand eingibst. dann ist doch die folgerung, dass an der ausgelesenen adresse was nicht stimmt, oder? schliesslich hat perl nichts eingebaut, was erkennt "oh, diese email-adresse kommt aus einer excel-datei, igitt".
        also, debugging. ohne das richtige debugging wirst du eh nicht weit kommen, daher hier ein statement, was für alle noch so abwegigen fälle gewappnet ist:
        
        Code (perl): (dl )
        
        1 2 3
        
        use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper $array[$n];
        
        steht in dieser variable nun drin, was du erwartest oder etwas anderes?
        
        zu den email-adressen: es ist egal, ob es echte oder erfundene mails sind, die domains existieren, und stattdessen sollte man beispieldomains verwenden. mir reicht schon, wenn du das akzeptierst und in zukunft beachtest, denn das steht so auch in unserer faq AllgemeinesWieFrageIchbeiPerlCommunity punkt 9 (E-Mail-Adressen im Posting)
        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
        
        kazar
        
        2009-06-11 21:07
        
        User since
        2009-06-11
        8 Artikel
        BenutzerIn
        
        jap steht so ziemlich das drinne was ich erwarte
        wenn ich die FOR Schleife verändere (sie nur einmal durchläuft - oder ich manuell irgendeine Stelle des Arrays übergebe funktioniert alles.
        
        Somit weiß ich nicht ob mein SMTP Server aufgrund der vielen Anfragen mich blacklistet oder wie auch immer
        
        übrigends mit deinem Dumper:
        
        Code: (dl )
        
        1 2 3
        
        $VAR1=beispiel@domain.example $VAR2=beispiel2@domain.example $VAR3=beispiel3@domain.example
        
        also schon so wies sein soll..
        
        pq
        
        2009-06-11 23:45
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        das kann nicht sein. Dumper erzeugt andere ausgaben. da müssen zumindest noch anführungszeichen drumherum.
        bitte:
        
        Code: (dl )
        
        1 2 3 4 5 6 7
        
        perl -wle' use Data::Dumper; local $Data::Dumper::Useqq = 1; my $email = q{beispiel@domain.example}; print Dumper $email; ' $VAR1 = "beispiel\@domain.example";
        
        wenn die dumper-ausgabe bei dir so aussieht wie du oben schriebst, ist dein Data::Dumper modul auch noch kaputt. ganz schön viel mittlerweile =)
        (im übrigen siehst du hier, an welcher stelle ein backslash nötig ist, nämlich bei at-zeichen in doppelten anführungszeichen, weil perl das sonst als array @domain behandeln würde.)
        
        aber anscheinend kommen wir nicht weiter. du behauptest, in dem string steht genau drin, was du erwartest, und wenn du es von hand reinschreibst, funktioniert es, und anders nicht. dann bin ich an einem punkt angelangt, an dem ich nicht weiterhelfen kann, denn ein string ist ein string, da macht perl keinen unterschied. den rat von gwendragon bzgl. debug hast du ja sicher auch schon befolgt...
        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

View all threads created 2009-06-11 18:29.