Mit Perl CSV-Tabelle auslesen Werte verändern und zurück spielen (Allgemeines zu Perl)

[thread]20585[/thread]

Mit Perl CSV-Tabelle auslesen Werte verändern und zurück spielen

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+6 replies
JohnB

2019-02-12 18:23

User since
2019-02-12
1 Artikel
BenutzerIn

Hallo alle zusammen,

ich hoffe hier kann mir einer weiterhelfen da ich absoluter anfänger in Perl bin

Ich möchte eine aus einer CSV-Datei alle in Spalte A stehenden Zahlen auslesen und alle Leerzeichen rechts von den Zahlen entfernen. Dann diese Zahlen wieder in eine CSV-Datei in Spalte A an die selbe stelle schreiben.

Kurz ich habe 10.000 Zahlen die alle durch einen Datenbank dump auf einmal 5 Leerzeichen dahinter zu stehen haben. Die Leerzeichen behindern aber die Weiterverarbeitung in der nächsten Datenbank.
Last edited: 2019-02-12 18:37:40 +0100 (CET)
- rosti
  
  2019-02-12 18:57
  User since
  2011-03-19
  3473 Artikel
  BenutzerIn
  Das Padding kannst Du mit unpack entfernen, B:
  
  Code (perl): (dl )
  
  1 2
  
  my $s = "asdf "; print unpack "A*", $s;
  
  Falls das die Frage war ;)
  
  MfG
  Last edited: 2019-02-14 17:49:37 +0100 (CET)
- payx
  
  2019-02-12 21:08
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo JohnB,
  
  Annahmen:
  - Der Separator ist ; (sonst halt im Befehl anpassen).
  - Mit Spalte A ist die erste Spalte im CSV gemeint, also jeweils der erste Wert in jeder Zeile.
  - Aus dieser ersten Spalte sollen immer am Ende alle Leerzeichen entfernt werden – und nur von dort.
  
  Code: (dl )
  
  perl -i.bak -pe 's/\s*;/;/' test.csv
  
  ändert
  
  Code: (dl )
  
  1 2 3
  
  123 ;foo; bar; too ; far 45678 ;foo; bar; too ; far 9; foo; bar; too ; far
  
  zu
  
  Code: (dl )
  
  1 2 3
  
  123;foo; bar; too ; far 45678;foo; bar; too ; far 9; foo; bar; too ; far
  
  HTH
  Grüße
  payx
  
  Edit: Der Einzeiler enthielt einen Fehler. Er hat einfach immer die erste Gruppe von Leerzeichen aus der Zeile entfernt (was im vorliegenden Fall vielleicht sogar richtig funktioniert hätte). Jetzt löscht er alle Leerzeichen vor dem ersten Semikolon, was zur Aufgabenstellung und den obigen Annahmen besser passen sollte.
  Last edited: 2019-02-14 17:43:13 +0100 (CET)
- Linuxer
  
  2019-02-12 21:13
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Mit welchen Zeichen werden die Spalten getrennt?
  Dann musst Du sicher sein, dass dieses Zeichen nicht innerhalb der ersten Spalte vorkommt.
  
  Wenn das beides klar ist, dann könntest Du folgenden Ansatz probieren:
  
  Der folgende Aufruf nimmt an, dass als Trennzeichen das Semikolon verwendet wurde und dass sich immer 5 unerwünschte Leerzeichen vor dem Semikolon befinden.
  
  Per Regex werden dann diese Leerzeichen und ein Semikolon durch ein Semikolon ersetzt.
  Pro Zeile passiert das genau einmal; also idealerweise bei Deiner ersten Spalte.
  
  Code: (dl )
  
  perl -p -E 's/\s{5};/;/' original.csv > modified.csv
  
  Test
  
  Code: (dl )
  
  1 2
  
  $ echo "123 ;foo" | perl -p -E 's/\s{5};/;/' 123;foo
  
  Last edited: 2019-02-12 21:14:21 +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!
- Raubtier
  
  2019-02-13 10:12
  
  User since
  2012-05-04
  1075 Artikel
  BenutzerIn
  
  ...und wenn du komplexere CSVs hat mit Strings, ggf. Newlines und Quotes innerhalb von Strings, dann schau dir das Modul Text::CSV an.
- rosti
  
  2019-02-14 17:52
  
  User since
  2011-03-19
  3473 Artikel
  BenutzerIn
  
  Quote
  Kurz ich habe 10.000 Zahlen die alle durch einen Datenbank dump auf einmal 5 Leerzeichen dahinter zu stehen haben. Die Leerzeichen behindern aber die Weiterverarbeitung in der nächsten Datenbank.
  
  Vermutlich waren die Zahlen nicht als Zahlen gepeichert sondern in Stringfeldern. Denn es ist ungewöhnlich daß ein DBMS beim Dumpen Zahlen mit Leerzeichen auffüllt.
  
  MFG

View all threads created 2019-02-12 18:23.