Array-Lines zählen (gelöst) - #175339 (Allgemeines zu Perl)

GwenDragon

2014-05-06 16:17

User since
2005-01-17
14757 Artikel
Admin1

In der Schleife:

Code (perl): (dl )

my ($id,undef,undef,undef,undef,$count) = (split/\s+/,$row); # Zeile nach Leerzeichen in mehrere Felder aufsplitten
# undef bedeutet hier: Ergebnis des split wegwerfen, also: unwichtige Spalte wegwerfen
$id_count{$id}{anz}++;  # Auftreten des IDs zählen
$id_count{$id}{sum} += $count; # sechste Spalte des IDs aufsummieren

Und für die Ausgabe:

Code (perl): (dl )

printf                          # formatiert ausgeben
  '%-6d %-6d %-6d\n',                      # alle Felder 6 Zeichen breit, linksbündig
  $_,$id_count{$_}{anz},$id_count{$_}{sum} # Werte der Felder 
  for keys %id_count;                      # für alle Schlüssel im Hash

Last edited: 2014-05-06 16:29:56 +0200 (CEST)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten