Einzelne Werte aus CSV-Datei / Länge unbekannt (gelöst) (Allgemeines zu Perl)

[thread]17328[/thread]

Einzelne Werte aus CSV-Datei / Länge unbekannt [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+11 replies
Gast HP-User

2012-04-17 20:22
Hallo Leute
Bin neu hier und möchte zuerst mal alle begrüßen.
Und nun zum eigentlichen Problem:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12

open(LESER, "<data/beispieldatei.csv"); flock(LESER, LOCK_SH); while(! eof(LESER)){ my $zeile = <LESER>; my ($auswahlpunkt) = split(/,/,$zeile); print <<"ENDE"; <option value='category="$auswahlpunkt"'>$auswahlpunkt</option> ENDE } close(LESER);
Beschreibung:
Ich öffne eine csv-Datei mit dem Händler "LESER" und packe den Inhalt in den Skalar $zeile. Dannach splitte ich in $auswahlpunkt. Die csv-Datei besteht aus Wörtern, getrennt durch Kommata:

csv-Beispiel: kein,Punkt 1,Punkt2,punkt3, usw...

Ziel sollte sein, daß die while-Schleife so viele Auswahlpunkte erstellt, wie die csv-Datei an Einzelwerten beinhaltet. Das dumme an der Sache ist, daß man nicht vorraussagen kann, wie viele Einzelwerte die csv-Datei enthält. Ich hoffe ich konnte mein vorhaben deutlich schildern.

Gruß HP-User

modedit Editiert von pq: code-tags hinzugefügt
Last edited: 2012-04-17 20:38:43 +0200 (CEST)
- murphy
  
  2012-04-17 20:32
  
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  
  Wenn ich das richtig verstehe brauchst Du einfach eine zweite Schleife über die Werte, die split zurückliefert.
  
  Abgesehen davon ist es natürlich eine schlechte Idee, echte CSV-Daten einfach mit split zu verarbeiten, dafür sollte man lieber einen richtigen Parser nehmen, zum Beispiel Text::CSV.
  
  Dieses Forum bietet übrigens auch die Möglichkeit, Beiträge lesbar zu formatieren, was besonders für Code wichtig wäre.
  When C++ is your hammer, every problem looks like your thumb.
- +9 replies
- kristian
  
  2012-04-17 20:36
  
  User since
  2005-04-14
  684 Artikel
  BenutzerIn
  
  hallo
  
  es ist falsch etwas in einen scalar zu splitten, dafür brauchst du ein @array.
  über das willst du dann die nächste schleife abwickeln, wie schon erwähnt.
  
  gruß
  kristian
  - +2 replies
  - murphy
    
    2012-04-17 20:42
    
    User since
    2004-07-19
    1776 Artikel
    HausmeisterIn
    
    Naja, der Originalbeitrag splittet ja nicht in ein Skalar, sondern in eine Liste bestehend aus einem Skalar!
    
    Das macht einen großen Unterschied: Zum einen wird so tatsächlich das erste abgespaltene Feld in dem Skalar abgelegt und nicht die Anzahl gefundener Felder, was passieren würde wenn das Ziel tatsächlich nur ein Skalar wäre. Zum anderen wird bei dieser Benutzung automatisch das dritte Argument für split inferiert.
    When C++ is your hammer, every problem looks like your thumb.
    - kristian
      
      2012-04-17 20:47
      
      User since
      2005-04-14
      684 Artikel
      BenutzerIn
      
      jap, das mag unter uns sinnig sein, dem OP hilft das jetzt eher nicht ;-)
  - +6 replies
  - Gast HP-User
    
    2012-04-17 20:49
    
    Hallo zusammen
    
    @murphy
    split ist glaub ich schlecht, weil es einzelne Skalare erwartet.
    
    @kristian
    Ob ein Array weiter hilft weiß ich nicht. Laut Beschreibung (Perl-doc) ist das ja für mehrere Werte gedacht.
    
    Ich möchte lediglich, daß zuerst in der beispiel.csv der Wert kein in ein Skalar gepakt wird. Dann der Wert Punkt 1. Dannach der Wert Punkt 2 usw. Das Script schaft jetzt lediglich nur den ersten Wert -> nämlich "kein". und dann ist die SChlefe auch schon zu ende. Von der Logik her gesehen, vermute ich, das Perl die CSV-Datei komplett einliest - und nicht wert für wert.
    
    Die Html-Ausgabe kann man hier sehen:
    
    [...]
    
    Im Dropdownmenü steht nur "kein". Die anderen Werte spuckt das Skript nicht aus.
    
    Gruß HP-User
    Last edited: 2012-10-05 11:25:45 +0200 (CEST)
    - +2 replies
    - pq
      
      2012-04-17 21:07
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      ich verstehe gerade nicht, warum du kein array nimmst.
      
      Code (perl): (dl )
      
      1 2 3 4
      
      my @auswahlpunkte = split /,/, $zeile; for my $auswahlpunkt (@auswahlpunkte) { print qq{<option value='category="$auswahlpunkt"'>$auswahlpunkt</option>}; }
      
      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
      - kristian
        
        2012-04-17 21:14
        
        User since
        2005-04-14
        684 Artikel
        BenutzerIn
        
        hi pq
        
        er ist halt neu und will noch lernen.
        wie das geht weiß er natürlich auch noch nicht.
        denk zurück an dlcpm (richtig?) so in etwa muss es heute ja auch sein.
        
        gruß
        kristian
    - +3 replies
    - kristian
      
      2012-04-17 21:11
      
      User since
      2005-04-14
      684 Artikel
      BenutzerIn
      
      hallo
      
      dein script iteriert über mehrere zeilen, jede zeile ist ein scalar, in jeder zeile stehen mehrere werte.
      
      wenn du pro zeile mehrere werte rausziehen willst (split) dann müssen die in ein @array, dafür ist es da.
      
      gruß
      kristian
      - +2 replies
      - Gast HP-User
        
        2012-04-17 21:39
        
        Abend zusammen
        
        @all
        Juhu es geht *freu*
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
        
        open(LESER, "<data/beispieldatei.csv"); flock(LESER, LOCK_SH); while(! eof(LESER)){ my $zeile = <LESER>; my (@auswahlpunkte) = split(/,/,$zeile); for my $auswahlpunkt (@auswahlpunkte) { $auswahlpunkt = ucfirst ($auswahlpunkt); print <<"ENDE"; <option value='category="$auswahlpunkt"'>$auswahlpunkt</option> ENDE } } close(LESER);
        
        Und Großbuchstaben am Anfang geht auch - super!
        Das heißt also, das ein Array in Verbindung mit einer for-Schleife den Skalar Stück für Stück seinen Inhalt übergibt.
        Von meinem früheren Basic-Kenntnissen weiß ich nur noch, daß man mit Read in Verbindung mit Data auslesen konnte. Um den Lesezeiger zurück zu setzen, war ein Resume nötig. Ach ja, ein wenig Basic-Nostalgie schadet nie!
        
        Vielen, vielen Dank an Alle. Ohne Euch hätte ich das nicht hinbekommen.
        
        Grüße HP-User
        
        PS.: So, jetzt kann ich in Ruhe weiterbasteln *g*
        Last edited: 2012-04-17 22:12:16 +0200 (CEST)
        
        pq
        
        2012-04-17 22:32
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        hier noch was zu lesen:
        http://perl-tutorial.org/ - moderne tutorials
        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 2012-04-17 20:22.