mehrere Zeilen einer Datei zusammenfassen (CSV) (Allgemeines zu Perl)

[thread]18618[/thread]

mehrere Zeilen einer Datei zusammenfassen (CSV)

Tags: perl5 Similar Threads

Readers: 15

Articles: hide open all | hide show old branches

+6 replies
guest Stefan

2013-09-22 11:51
Hallo zusammen,
ich habe eine csv-Datei, die ich etwas verändern möchte.
Eigentlich sollte jede Zeile aus 9 durch Semikolons getrennten Feldern bestehen, also z.B. so (ein paar Zahlen und Daten habe ich hier mal sicherheitshalber verändert):
Code: (dl )

1 2

Buchungstag;Valuta;Auftraggeber/Zahlungsempfänger;Empfänger/Zahlungspflichtiger;Konto-Nr.;BLZ;Vorgang/Verwendungszweck;Währung;Umsatz; 20.09.2013;Hinz und Kunz;Kunz;1234567891;66090800;GUTSCHRIFT;EUR;1.000,00;H
Jetzt sehen aber manche Zeilen z.B. so aus:
Code: (dl )

1 2 3 4

12.09.2013;12.09.2013;HINZ;DRK-KREISVERBAND KöLN E.V.;54321908;37020500;LASTSCHRIFT 1055141526 ZID4838922 DRK-BEITRAG STEUERNUMMER 111/0000/9999;EUR;8,00;S
Das Datum erscheint aus irgend einem Grund gleich zweimal, einmal würde mir genügen. Und dann hätte ich gerne immer erst nach dem Feld S oder H einen Zeilenumbruch.
Kann mir jemand einen guten Tipp geben, wie ich das mit Perl bewerkstelligen kann?
Ich hoffe, ich nerve nicht zu sehr mit meiner Frage, ich beschäftige mich erst seit ein paar Wochen mir Perl und habe mit dem Programm bislang erst ganz andere Sachen gemacht.

modedit Editiert von GwenDragon: Titel erweitert
Last edited: 2013-09-22 16:44:55 +0200 (CEST)
- +4 replies
- pq
  
  2013-09-22 14:08
  
  User since
  2003-08-04
  12209 articles
  Admin1
  
  also Text::xSV kann z.b. mit newlines in feldern umgehen, aber auch nur, wenn diese felder gequoted sind. das ist leider bei deiner datei nicht der fall.
  
  ich habe mal den ansatz gewählt, mit Text::CSV zeile für zeile auszulesen, und wenn ich weiger felder bekomme als erwartet, lese ich die nächste zeile noch mit ein und versuche es erneut, bis die anzahl der felder stimmt.
  aber auch das würde bei dir zum problem, da du in manchen zeilen 9 felder hast, in manchen 10. (wenn ich beim copy&paste jetzt nichts falsch gemacht habe)
  also wäre dein ansatz: wenn es weniger als 9 felder sind, lies die nächste zeile mit ein. bei der gelegenheit kanst du auch gleich das newline entfernen, so dass du die neue datei am ende gleich rausschreiben kannst.
  ich würde dir aber empfehlen, da bei der gelegenheit gleich mal ordnung reinzubringen und die anzahl der felder zu vereinheitlichen.
  Last edited: 2013-09-22 14:10:00 +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
  - guest Stefan
    
    2013-09-22 16:35
    
    Ich nehmen man Text::xSV ist ein Perl-Modul, das ich laden muss, richtig?
    Das muss ich wahrscheinlich erst einmal herunterladen und an einem bestimmten Ort speichern, oder ist das schon enthalten im Standardprogramm?
    Last edited: 2013-09-22 16:37:03 +0200 (CEST)
    - GwenDragon
      
      2013-09-22 16:38
      
      User since
      2005-01-17
      14835 articles
      Admin1
      
      Installiere dir das auf der Kommandozeile mit
      cpan Text::xSV
      
      Kann auch sein, dass das reine herunterladen von http://api.metacpan.org/source/TILLY/Text-xSV-0.21... reicht und du das dann in eine eigenes Verzeichnis Text speicherst und dann mit der Angabe deines Modulpfads
      
      Code (perl): (dl )
      
      use lib "/home/username/myperl/lib/Text"; # Pfad so anpassen!
      
      lädst.
      Last edited: 2013-09-22 16:44:30 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - pq
      
      2013-09-22 16:48
      
      User since
      2003-08-04
      12209 articles
      Admin1
      
      schau mal hier: ModuleWieInstalliereIchEinModul
      da sind verschiedene wege beschrieben, ein modul zu installieren. kommt auf dein system und dein perl an.
      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
- hlubenow
  
  2013-09-22 18:16
  
  User since
  2009-02-22
  877 articles
  BenutzerIn
  
  Guest Stefan
  Und dann hätte ich gerne immer erst nach dem Feld S oder H einen Zeilenumbruch.
  
  CSV mit Zeilenumbrüchen innerhalb der Datensätze würd' ich nicht machen.
  Immer schön einen Datensatz pro Zeile. Und wenn Du dann eine lesbarere Ansicht der Daten haben möchtest, schreib' ein Skript, das Dir aus den Daten eine solche Ansicht erstellt (oder die in eine neue Datei speichert).
  
  Auch bei Datenbankprogrammen (ich kenn's von DBase V, Lotus Approach oder MySQL) unterscheidet man ja zwischen den Rohdaten selbst und (ggf. verschiedenen) Ansichten davon.
  Last edited: 2013-09-22 18:18:13 +0200 (CEST)

View all threads created 2013-09-22 11:51.