datei in array einlesen zwecks mailversand (Allgemeines zu Perl)

[thread]15353[/thread]

datei in array einlesen zwecks mailversand

Leser: 23

Articles: hide open all | hide show old branches

+8 replies
ertox

2010-08-06 20:24

User since
2010-08-06
6 Artikel
BenutzerIn

Hallo!

Es mag eine Anfängerfrage sein, bin ich auch :), aber ich hab das Problem das ich den Code nicht nachvollziehen kann, welchen ich hier im Forum und über Google gefunden habe.
http://www.perl-community.de/bat/poard/thread/7923...
http://www.perl-community.de/bat/poard/thread/8900...

Ziel:
in einem Array (@text) sollen alle Wörter einer Datei eingelesen werden, damit ich diese später als Mailinhalt senden kann. Dieser hat Zeilenumbrüche und Sonderzeichen wie äöü etc. drin.

Code:
open (DATEI, '< text');
@text = <DATEI>;
close (DATEI;

Problem:
Das erste Wort wird eingelesen, aber sonst nichts (nach dem Wort kommt ein Zeilenumbruch)

Frage:
Liegt es nun daran, dass ich zuerst alle Zeilenumbrüche entsprechend Formatieren muss, oder sollte es eigentlich so die ganze Datei einlesen?
Wie könnte ich dann Zeilenumbrüche einlesen?

Danke für Eure Hilfe :-)
Last edited: 2010-08-06 20:27:20 +0200 (CEST)
- +7 replies
- renee
  
  2010-08-06 20:29
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Wie hast Du denn überprüft, ob nur das erste Wort eingelesen wird? In jedem Arrayelement sollte eine Zeile der Datei stehen.
  
  Übrigens solltest Du Fehler beim Öffnen der Datei abfangen:
  
  Code (perl): (dl )
  
  1 2 3
  
  open( DATEI, '< text') or die $!; my @array = <DATEI>; close DATEI;
  
  Mehr zum Thema "open" gibt es unter http://reneeb-perlblog.blogspot.com/2009/09/versch...
  
  Edit: So kannst Du Dir den ganzen Inhalt von "@array" mal anschauen:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  use Data::Dumper open( DATEI, '< text') or die $!; my @array = <DATEI>; print Dumper \@array; close DATEI;
  
  Last edited: 2010-08-06 20:31:26 +0200 (CEST)
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - +6 replies
  - ertox
    
    2010-08-06 20:45
    User since
    2010-08-06
    6 Artikel
    BenutzerIn
    
    Hallo!
    
    Danke, im Array wird also alles korrekt eingelesen, der Fehler liegt demfall eher beim Send/MAIL Modul welches ich benütze, resp, bei der Erstellung des Ablaufs welchen ich gerne möchte. Dein Script gibt mir mein ganzes Logfile aus so wie es sein sollte! :)
    
    Ursprünglich war als Text im FAQ nur eine Zeile vorgesehen gewesen und kein Array sondern nur eine Var $.
    
    ----------------------------------------------------------------------
    
    Code (perl): (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
    
    #!/usr/bin/perl use Mail::Sender; use strict; my @text; my $message = "test"; open (DATEI, '< text'); @text = <DATEI>; close (DATEI); my $sender = new Mail::Sender { smtp => 'asd', from => 'asd', auth => 'LOGIN', authid => 'asd', authpwd => 'asd', on_errors => undef, } or die "Can't create the Mail::Sender object: $Mail::Sender::Error\n"; $sender->MailMsg({to => 'asd', subject => 'Testmail', msg => @text}) or print "FUBAR";
    
    //MODEDIT GwenDragon: Code-Tags eingefügt
    
    Last edited: 2010-08-07 09:23:19 +0200 (CEST)
    - +4 replies
    - renee
      
      2010-08-07 06:45
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Kurze Antwort:
      Du musst es so machen:
      
      Code (perl): (dl )
      
      1 2 3 4
      
      $sender->MailMsg({to => 'asd', subject => 'Testmail', msg => join '::', @text, }) or print "FUBAR";
      
      Lange Antwort:
      Du versuchst hier, ein Array als Wert in einem Hash zu benutzen. Das geht nicht. In Hashes dürfen nur Skalare die Werte sein. Wobei ein Skalar (fast) alles sein kann: String, Zahl, Arrayreferenz, Hashreferenz, ...
      
      Mit diesen Referenzen baut man komplexe Datenstrukturen auf. Siehe dieser Artikel.
      
      In Deinem Code machst Du:
      
      Code: (dl )
      
      1 2 3
      
      {to => 'asd', subject => 'Testmail', msg => @text}
      
      Damit Du siehst, was dann passiert, solltest Du Dir mal das hier anschauen:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7
      
      use Data::Dumper; my @text = qw(das ist ein Test); my $hashref = {to => 'asd', subject => 'Testmail', msg => @text}; print Dumper $hashref;
      
      Dann siehst Du, dass so etwas rauskommt:
      
      Code: (dl )
      
      1 2 3 4 5 6 7
      
      $VAR1 = { 'msg' => 'das', 'to' => 'asd', 'ist' => 'ein', 'subject' => 'Testmail', 'Test' => undef };
      
      Du siehst, dass die Elemente des Arrays teils als Schlüssel, teils als Wert in dem Hash auftauchen. Warum?
      
      Ein Hash ist im Prinzip eine Liste mit einer geraden Anzahl von Elementen. Bei der Deklaration sieht man meistens das "=>" für die Zuweisung von Wert zu Schlüssel. Das "=>" ist das "fat comma", das dafür sorgt, dass der Teil links davon stringifiziert wird. Aber es ist ein Komma. Du kannst einen Hash auch so deklarieren:
      
      Code: (dl )
      
      1 2 3
      
      my %hash = ('subject','Testmail', 'to', 'asd' ); # oder my %hash = @array;
      
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
      - +3 replies
      - pq
        
        2010-08-07 10:21
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2010-08-07T04:45:09 renee
        Du musst es so machen:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        $sender->MailMsg({to => 'asd', subject => 'Testmail', msg => join '::', @text, }) or print "FUBAR";
        
        nicht gut. funktionen wie join sollte man in solchen konstrukten immer mit klammern aufrufen.
        warum? weil man sich jederzeit ueberlegen koennte, noch einen weiteren key einzufuegen:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        use Data::Dumper; my @text = qw/ a b c /; my %hash = ( foo => 1, bar => join ",", @text, baz => 2, ); print Dumper \%hash; __END__ $VAR1 = { 'bar' => 'a,b,c,baz,2', 'foo' => 1 };
        
        vs.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14
        
        perl -wle'use Data::Dumper; my @text = qw/ a b c /; my %hash = ( foo => 1, bar => join(",", @text), baz => 2, ); print Dumper \%hash; __END__ $VAR1 = { 'bar' => 'a,b,c', 'baz' => 2, 'foo' => 1 };
        
        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
        
        ertox
        
        2010-08-11 13:04
        
        User since
        2010-08-06
        6 Artikel
        BenutzerIn
        
        danke dir, ich muss mich zuerst noch durchwühlen, ich versuch derzeit etwas einfacheres welches aber auch bereits scheitert....
        
        danke trotzdem =)
        
        gelöscht 2010-08-11 13:04
    - GwenDragon
      
      2010-08-07 09:24
      
      User since
      2005-01-17
      14547 Artikel
      Admin1
      
      Bitte das nächste Mal Code in Perl- oder Code-Tags stellen, nicht als Zitat.
      Tags siehe Anleitung (BBCode des Forums)
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View all threads created 2010-08-06 20:24.