xlxs oder csv Datei einlesen und ausgeben (Allgemeines zu Perl)

[thread]20252[/thread]

xlxs oder csv Datei einlesen und ausgeben

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+8 replies
Gast Peven

2017-03-07 16:02

Hallo Werte Perl-Community,

ich suche nun schon seit einer ganzen Weile nach einer Lösung für ein Problem, dass für die meisten von euch hier wahrscheinlich absolutes "Pillepalle" ist. Ich selbst hätte auch nicht gedacht, dass es mir so schwer fallen würde, eine Lösung zu finden, durchforste nun aber schon seit gut einem Monat das gesamte Netz nach einem akkuratem Ansatz.

Es geht einfach nur darum, dass ich die Daten einer Excel-Datei (oder, falls simpler, auch nach einer CSV Datei) einlesen möchte und danach auf den gesamten Inhalt zugreifen kann. Genauer: In diesen Dateien stehen Personendaten, der User soll den Nachnamen der gesuchten Person eingeben und das Programm soll dem User, falls die Person gefunden wurde, die gesamten dazugehörigen Daten ausgeben:

Beispiel:

Datensatz:

Nachname Name Alter Hobbies

Müller Jens 42 Fußball, Tennis, Vögel beobachten
Knusper Ronny 34 lesen, schlafen, langweilen

Suchanfrage: Müller

Suchergebnis:
Müller Jens 42 Fußball, Tennis, Vögel beobachten

Wie gesagt, mir ist klar, dass bei einigen jetzt die Frage aufkommt...kann der das denn nicht selbst rausfinden? Dachte ich auch und ich habe an sich auch viele Lösungen gefunden, die meisten waren mit Modulen verbunden, aber irgendwie hat nichts davon exakt zu dem gewünschten Ergebnis geführt. Entweder ließ sich nur der Inhalt einzelner Zellen ansprechen und ausgeben oder die Ausgabe war leer, oder, so wars meistens, es hat einfach gar nicht erst funktioniert.

Ich selbst programmiere seit ca einem 3/4 Jahr, würde mich also nicht mehr als blutigen Anfänger bezeichnen, aber bin auch noch weit davon entfernt in den Profistatus aufzusteigen. Ich fände es klasse wenn mir hier jemand helfen könnte und mir eine Lösung "für Dummies" präsentiert wo ich auch wirklich verstehe was passiert und nicht nur einen funktionierenden Quelltext erhalte. Es hört sich komisch an, aber ich würde mich freuen wenn mich jemand einfach an die Hand nehmen könnte und mir zeigt wie ich dieses Problem lösen kann.

Vielen Dank bereits im Voraus.
Last edited: 2017-03-07 16:26:21 +0100 (CET)
- +4 replies
- rosti
  
  2017-03-07 16:41
  
  User since
  2011-03-19
  3471 Artikel
  BenutzerIn
  
  Dafür gibts fertige Module, guckst Du CPAN.
  
  MfG
  
  PS: Wie Deine Datenstruktur auszusehen hast, solltest Du Dir natürlich selbst überlegen. Also schnapp Dir einfach mal eines der ungezählten Module von CPAN und guck mit Data::Dumper an, wie Daten einer csv.Datei im Hauptspeicher aussehen. Auf jeden Fall hast Du erst im Hauptspeicher einen wahlfreien Zugriff auf die Daten (Array, Hash...), wie die vorher in der Datei standen ist uninteressant.
  Last edited: 2017-03-07 16:50:45 +0100 (CET)
  - +3 replies
  - Gast Peven
    
    2017-03-07 16:46
    
    Hallo rosti,
    
    Wie gesagt, die Module habe ich schon verwendet, die haben leider ebenfalls nicht das gewünschte Ergebnis hervorgebracht. Außerdem lerne ich durch das Modul nicht wirklich was letztlich passiert bzw. was ich zu tun habe. Ich würde mich freuen, wenn jemand tatsächlich die Nerven hätte, mir das Schritt für Schritt zu erklären, verstehe aber natürlich auch, falls sich niemand diesen Aufwand machen möchte. Nimmt ja doch etwas Zeit in Anspruch.
    Last edited: 2017-03-07 16:52:46 +0100 (CET)
    - rosti
      
      2017-03-07 16:59
      
      User since
      2011-03-19
      3471 Artikel
      BenutzerIn
      
      Suche mit Text::Query. Es gibt nichts Besseres.
      
      Also: csv.Datei in den Hauptspeicher lesen, das Ergebnis sei ein Array. Daneben mit der Suchanfrage ein Text::Query - Objekt erstellen und eine Schleife über das Array legen. Das Query-Objekt auf die gewünschten Felder anwenden und das Ergebnis zwischenspeichern.
      
      Zum Schluss das Ergebnis ausgeben. Kriegste hin, nimm Dir Zeit ;)
    - Linuxer
      
      2017-03-07 17:05
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Hallo,
      
      eine CSV-Datei läßt sich ja noch bedingt ohne Modul verarbeiten, kann aber auch schon Fallstricke enthalten.
      
      Aber eine XSLX-Datei selber zu verarbeiten, ist falsch verstandener Ehrgeiz. Wo willst Du anfangen selbst zu programmieren, wo aufhören. XSLX ist ein gezippter Haufen von XML- und anderen Daten. Willst Du den Unzipper selber schreiben? Willst Du den XML-Parser selber schreiben? Viel Erfolg beim Durcharbeiten der jeweiligen Spezifikationen (Zip, XML, Excel)....
      
      Irgendwo muss man einen Schlußstrich ziehen und auf anderer Arbeit (Module) zurückgreifen.
      
      Wenn Du bei Benutzung eines Moduls nicht die gewünschten Ergebnisse erzielst, stellt sich direkt die Frage:
      Wie machst Du das denn?
      
      Ohne den von Dir verwendeten Code zu sehen, kann man da nichts zu raten. "Nicht das gewünschten Ergebnis" ist auch eine der schlechtesten Fehlerbeschreibungen, die man geben kann. Die liegt knapp über "geht nicht".
      Wenn Du Details liefern kannst, findet sich sicher auch jemand, die/der Hinweise geben kann, wie und was man da verbessern könnte.
      
      Man muss aber auch bedenken, dass ein Modul auch noch Fehler enthalten kann.
      Gerade bei den Excel-Modulen erlebt gerade ein Kollege immer wieder Überraschungen.
      Aber das sollte einen nicht davon abhalten, Module zu nutzen.
      
      Zum Einsteigen würde ich mich an Deiner Stelle auf die CSV-Datei beschränken und damit erstmal arbeiten.
      Last edited: 2017-03-07 17:28:55 +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!
- Linuxer
  
  2017-03-07 19:30
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Ganz allgemein: Ein gutes Tutorial zur Perl-Programmierung wäre beispielsweise das Buch "Modern Perl"; verlinkt u.a. dort: http://perl-tutorial.org/
  
  Ansonsten lässt Du ja komplett offen, was Du bereits hast.
  
  Hier ein einfaches Konzept:
  
  Wie schon geschrieben, würde ich mit einer einfach aufgebauten CSV-Datei anfangen. D.h.:
  - pro Zeile steht da ein Datensatz drin; somit keine mehrzeiligen Felder.
  - das Trennzeichen der CSV-Felder wird nicht innerhalb der Felder verwendet
  
  Z.B.
  data.csv (417b)
  
  Ein darauf aufbauendes Skript könnte dann so ablaufen:
  
  strict und warnings verwenden
  Die csv-Datei zum Lesen öffnen; Stichworte:
  3-Argument-Form des perlfunc open
  open auf Erfolg prüfen
  Nach einem Suchbegriff fragen; Stichworte:
  Lesen von STDIN,
  perlfunc chomp
  zeilenweise durch die Datei gehen und nach dem Suchbegriff schauen; Stichworte:
  while-Schleife (siehe z.B. perlopentut)
  perlfunc index
  bei einem Treffer die Zeile auftrennen und ein Ergebnis ausgeben; Stichworte
  perlfunc split
  perlfunc join
  perlfunc print oder perlfunc say
  Am Ende die csv-Datei wieder schließen; Stichwort:
  perlfunc close
  
  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
- hlubenow
  
  2017-03-07 23:08
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  Ich hab' sowas mal geschrieben. Ist relativ komplex geworden, machte am Ende aber genau das, was ich wollte (was fertige Datenbankprogramme, abgesehen von teuren Speziallösungen, womöglich nicht gekonnt hätten).
  Bewährt hatte sich damals, die Datenzeilen zu trennen und getrennt nach Feldern jeweils in einen Hash zu schreiben. Dann kann man über die Feldnamen auf die Daten in dem Hash zugreifen:
  
  Wichtig war weiterhin, die Daten, wann immer möglich auf Fehler zu prüfen, also ein größeres Fehlermanagement aufzubauen. Wenn ein Datenfehler auftrat, sollte das Skript nach Möglichkeit ausgeben, in welchem Datensatz sich der Fehler befand und worin der Fehler bestand.
  
  Beachte, daß man unbedingt einen eindeutigen Feldtrenner braucht, der nicht in den Daten selbst vorkommen darf. Ich habe hier das Semikolon verwendet.
  
  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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
  
  #!/usr/bin/perl use warnings; use strict; my @fields = qw(Nachname Vorname Alter Hobbies); my $data = <<'END_HERE_1'; Müller;Jens;42;Fußball, Tennis, Vögel beobachten Knusper;Ronny;34;lesen, schlafen, langweilen END_HERE_1 my @data = split(/\n/, $data); sub getHashFromRecord { my $record = shift; my %h; my $i; my @s = split(/;/, $record); if ($#s != $#fields) { die "Wrong number of fields in record $record.\n"; } foreach $i (0 .. $#fields) { $h{$fields[$i]} = $s[$i]; } return %h; } my %h; my $i; my $record; print "Suchanfrage: "; my $q = <STDIN>; chomp($q); foreach $record (@data) { %h = getHashFromRecord($record); if ($h{Nachname} eq $q) { print "\n"; foreach $i (@fields) { print "$i:\t$h{$i}\n"; } print "\n"; } }
  - rosti
    
    2017-03-08 10:46
    User since
    2011-03-19
    3471 Artikel
    BenutzerIn
    
    Ein Slice (Array mit Hashreferenzen) wäre eine zweckmäßige Datenstruktur für die Daten einer CSV.Datei:
    
    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 26 27
    
    use strict; use warnings; use Data::Dumper; # definiere Feldnamen my @felder = qw(name vname alter hobbies); # hier kommts Ergebnis drauf my @slice = (); # datei lesen while(my $rec = <DATA>){ chomp $rec; my %hunt = (); @hunt{@felder} = split ";", $rec; # hash-slice! # hier könnte die Suchbedingung # Anwendung finden push @slice, \%hunt; } print Dumper \@slice; __DATA__ Müller;Jens;42;Fußball, Tennis, Vögel beobachten Knusper;Ronny;34;lesen, schlafen, langweilen
    
    Zweckmäßig deswegen weil die Felder übern Index und namentlich direkt addressierbar sind. HTML::Template freut sich übrigens auch über diesen Slice:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14
    
    $VAR1 = [ { 'alter' => '42', 'name' => 'Müller', 'hobbies' => 'Fußball, Tennis, Vögel beobachten', 'vname' => 'Jens' }, { 'alter' => '34', 'name' => 'Knusper', 'hobbies' => 'lesen, schlafen, langweilen', 'vname' => 'Ronny' } ];
    
    Womit z.B. das Ergebnis dynamisch als HTML erzeugt werden kann.
    Last edited: 2017-03-11 17:48:12 +0100 (CET)

View all threads created 2017-03-07 16:02.