Zu blöd zum files öffnen? oder lesen? (Allgemeines zu Perl)

[thread]18980[/thread]

Zu blöd zum files öffnen? oder lesen?

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+14 replies
ariser

2014-03-18 14:57
User since
2012-08-17
44 Artikel
BenutzerIn
Code (perl): (dl )

1 2 3

open DFF3, "<", $Config->{optim}->{dCdeffile} || die "Could not open file: $Config->{optim}->{dCdeffile} for acquiring destination cct data. bye.\n"; print readline(DFF3);
gibt mir nicht eine Zeile des files aus, sondern den ganzen Inhalt.

strawberry perl, auf Win 7. Datei ist ein CSV mit \r\n als Umbruch.s
- +9 replies
- Linuxer
  
  2014-03-18 14:58
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  readline() steht beim print im Listenkontext, damit liefert readline() alle Zeilen bis zum EOF.
  
  Wenn Du nur eine Zeile ausgeben willst, musst Du scalar() einsetzen:
  
  Code: (dl )
  
  print scalar readline($handle);
  
  edit: ... oder anders skalaren Kontext erzeugen; das sollte z.B. auch gehen:
  
  Code: (dl )
  
  print "" . readline($handle);
  
  Last edited: 2014-03-18 15:06:16 +0100 (CET)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +8 replies
  - ariser
    
    2014-03-18 15:14
    User since
    2012-08-17
    44 Artikel
    BenutzerIn
    
    Gut, hab ich kapiert. Was mich aber zur nächsten Frage bringt. Warum geht das dann nicht:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7
    
    open my $dff3, "<", $Config->{optim}->{dCdeffile} || die "Could not open file: $Config->{optim}->{dCdeffile} for acquiring destination cct data. bye.\n"; my $ncsv= Text::CSV->new ( {sep_char => ';', binary => 1 }); $ncsv->eol("\r\n"); while ($ldata=$ncsv->getline($dff3)) { push @destdcs, [@$ldata]; }
    
    Wenn ich das binary weglasse wird gar nix gelesen. So wird alles in eine Zeile gelesen, was ziemlich blöd ist.
    - +7 replies
    - Linuxer
      
      2014-03-18 15:50
      
      User since
      2006-01-27
      3870 Artikel
      HausmeisterIn
      
      Ich wäre mit der Verwendung von "\r" und "\n" vorsichtig; weil da IIRC Automatismen greifen und zum Teil anderes rauskommt als erwartet.
      
      Ich würde "\015\012" verwenden; wenn überhaupt.
      Wenn das Skript immer auf WinDOS läuft und die Dateien sicher nur den WinDOS-Umbruch nutzen, dann könnte man auch $/ verwenden; das wird per default auf den Zeilenumbruch des Systems gestellt (kann überschrieben werden!).
      
      Schau mal, was bei "\r\n" wirklich rauskommt: (Hexdump; auf Win7; perl 5.18.0)
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8
      
      perl -e "print \"\r\n\";" | xxd 0000000: 0d0d0a ... perl -e "print \"\r\";" | xxd 0000000: 0d . perl -e "print \"\n\";" | xxd 0000000: 0d0a ..
      
      Last edited: 2014-03-18 15:55:51 +0100 (CET)
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - +6 replies
      - ariser
        
        2014-03-18 16:19
        
        User since
        2012-08-17
        44 Artikel
        BenutzerIn
        
        ok. Das scheint die Ursache zu sein.
        Ich bekomme das gleiche Ergebnis.
        
        Da muss ich mich fragen, ob es dann den Einsatz von Text::CSV überhaupt noch braucht. Da kann ich mit readline und split (/;/... ein ebenso zuverlässiges Ergebnis erzielen, oder?
        
        +2 replies
        
        Muffi
        
        2014-03-18 16:22
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Dann schreib mal als Zelleninhalt ein paar Zeilenumbrüche, Strichpunkte und Anführungszeichen rein, dann schaumer mal ;)
        1 + 1 = 10
        
        ariser
        
        2014-03-18 17:12
        
        User since
        2012-08-17
        44 Artikel
        BenutzerIn
        
        2014-03-18T15:22:57 Muffi
        Dann schreib mal als Zelleninhalt ein paar Zeilenumbrüche, Strichpunkte und Anführungszeichen rein, dann schaumer mal ;)
        
        Wenn Text::CSV sowas tatsächlich beherrscht, hat das natürich seine Berechtigung.
        Wenn sich sowas allerdings in den meinen files findet, braucht mein kram gar nimmer weiter zu rechnen. Da sollen nur Zahlen drin sein.
        
        +3 replies
        
        Linuxer
        
        2014-03-18 16:56
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Nö, abhängig von den Daten Deiner CSV-Datei kann split keine korrekte Alternative sein. Ich würde nicht auf Text::CSV verzichten!
        Noch sind die Daten vielleicht so, dass der einfache split(';', ...) klappt. Dann kommen bald Daten, die ";" oder einen Umbruch enthalten und schon fällt der split() auf die Nase...
        Spar Dir den Ärger und verwende Text::CSV.
        
        Wo ist das Problem, "\015\012" zu schreiben oder $/ zu verwenden? Was kettet Dich an das "\r\n"?
        Und warum deswegen auf Text::CSV verzichten?
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +2 replies
        
        Linuxer
        
        2014-03-18 17:18
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Ich muss gestehen, ich bin da in die WinDOS-Falle getappt (bei der Ausgabe Stichwort binmode()).
        
        Auch mit "\015\012" klappt es bei mir nicht... da greift wohl auch schon die Magie. Mir fehlt gerade die Zeit, da weiter nachzusuchen
        
        Setze ich "eol" auf $/ oder lasse ich es weg, klappt es.
        
        Beispiel (tested on Win7, Perl 5.18.0):
        more (5.3kb)
        Last edited: 2014-03-18 17:25:53 +0100 (CET)
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        ariser
        
        2014-03-18 17:26
        
        User since
        2012-08-17
        44 Artikel
        BenutzerIn
        
        ja mit $/ klappts.
        
        Stimmt schon, man sollte immer die robusteste Methode verwenden. Vor allem, wenns schon jemand anders programmiert hat. Seh ich ein.
- +4 replies
- GwenDragon
  
  2014-03-18 16:46
  User since
  2005-01-17
  14533 Artikel
  Admin1
  Du musst einen Scalarkontext erzwingen.
  
  Code (perl): (dl )
  
  print ~~readline(DFF3);
  
  Siehe zu den "unbekannten" Perl-Operatoren auch:
  perlsecret
  http://www.catonmat.net/blog/secret-perl-operators...
  
  Editiert von GwenDragon: Hinweise zu spez. Perl-Operatoren
  Last edited: 2014-03-18 16:50:33 +0100 (CET)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +3 replies
  - ariser
    
    2014-03-18 17:35
    
    User since
    2012-08-17
    44 Artikel
    BenutzerIn
    
    2014-03-18T15:46:40 GwenDragon
    perlsecret
    http://www.catonmat.net/blog/secret-perl-operators...
    
    Bei sowas krieg ich immer leichte Anflüge von Panik.
    - +2 replies
    - GwenDragon
      
      2014-03-18 18:00
      
      User since
      2005-01-17
      14533 Artikel
      Admin1
      
      Wieso Panik? Sind die Inhalte dort zu unverständlich für dich?
      
      Frage doch einfach mal uns, wenn du nicht weiter weißt. ;)
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - Raubtier
        
        2014-03-18 18:08
        
        User since
        2012-05-04
        1054 Artikel
        BenutzerIn
        
        Ich finde scalar auch deutlich besser lesbar als ~~, zumal ~~ ja auch der Smart-Match-Operator ist.

View all threads created 2014-03-18 14:57.