Max. Anzahl Zeichen in einer Spalte (csv-datei) bestimmen. (Allgemeines zu Perl)

[thread]18042[/thread]

Max. Anzahl Zeichen in einer Spalte (csv-datei) bestimmen.

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+3 replies
Gast toppsino

2013-01-09 17:54

Hallo!
Ich habe eine CSV-Datei (ASCII) und möchte je "Spalte" die maximale Anzahl von Zeichen bestimmen.

Beispiel:
aaa;bbb;ccc
aa;bbbb;c
aaaaa;b;ccc

In diesem Fall wäre das korrekte Ergebnis sowas wie 5;4;3
Die Anzahl der Spalten und Zeilen ist übrigens variabel.

Ich habe schon ziemlich lange nichts mehr mit Perl gemacht und jetzt fehlt mir so der rechte Ansatz. Kann mir hier jemand einen Tipp geben, wie man das am besten löst. Ich denke wenn ich erstmal den Ansatz habe bekomme ich das dann wieder hin.

DANKE
Last edited: 2013-01-09 18:10:11 +0100 (CET)
- Linuxer
  
  2013-01-09 18:15
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  Naja, man könnte ein Array verwenden und darin die Länge des Wertes der Spalte ablegen bzw. überschreiben, wenn der aktuelle Wert größer ist als der gespeicherte...
  
  Schema (ungetestet):
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  # ... my @max_length; # Zeilenweise lesen while ( my $row = $csv->getline(<$fh>) ) { # Spalten pro Zeile durchgehen for my $i ( 0 .. $#$row ) { # max_length pro Spalte aktualisieren, wenn aktueller Laenge groesser als aktuelle max_length der Spalte $max_length[$i] = length($row->[$i]) if $max_length[$i] < length($row->[$i]); } }
  
  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!
- pq
  
  2013-01-10 00:59
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  ich könnte mir vorstellen, dass du das brauchst, weil du eine tabelle ausgeben willst.
  falls ja, nimm einfach Text::Table, das nimmt dir das zählen ab.
  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 2013-01-09 17:54.