2013-04-15T21:21:45Z perl-novice

Nun möchte ich die Werte der einen Datei zusammenzählen aber nur wenn diese gleich sind und einen Durchschnittswert errechnen.

Der Durchschnitt von beliebig vielen gleichen Zahlen ist immer genau diese Zahl ;-)

Im Ernst: aus deiner Beschreibung werde ich nicht schlau. Wenn welche Werte gleich sind? Und durch was soll geteilt werden? Anzahl aller Zeilen - Anzahl der "gleichen" Zeilen? Und vor allem: wie kommt die zweite Datei da ins Spiel?

Außerdem: wie ist der Bezug zum Titel, was hat die Berechnung eines Durchschnitts mit Hashvalues zu tun?

Mach doch am besten mal ein Beispiel mit 2 Dateien und je 2-5 String-Double-Paaren. Dann beschreibe dir am besten selbst einmal ganz genau, was das herauskommen soll. Vielleicht hast du dann auch schon gleich die Lösung. Denn ich kann nicht raten, was du hier willst.


Edit: mich hat eben der Zeitstempel des gequoteten Textes irritiert, weil er nicht mit "vor 1 Stunde" zusammengepasst hat. Ich habe einfach ein Z angefügt, und schon sollte es klar sein.
Last edited: 2013-04-16 01:23:48 +0200 (CEST)

Meinst du vielleicht sowas?

Hallo perl-novice,

ich versuche auch mal einen Vorschlag, in der Hoffnung, die Anforderung richtig verstanden zu haben. Ich vereinfache dahingehend, dass ich von einer Datei ausgehe, in der in jeder Zeile durch ein Leerzeichen getrennte String-Zahl-Tupel stehen, wobei ein String mehrmals vorkommen kann. (Die Beispiel-Eingabedatei habe ich unten im Script als DATA-Block angehängt.) Die Ausgabe soll zeigen, welche Zahl im Schnitt neben einem String steht.


Ich habe zwei Hashes, die beide die Strings als keys haben. Der eine bildet als value die Summe aus den Zahlen zu diesem String, der zweite zählt die Häufigkeit des Strings. Der Durchschnitt ist dann Summe/Häufigkeit. (Statt zwei Hashes zu machen, könnte man auch einen Hash of Hashrefs oder einen Hash of Arrayrefs aufbauen, aber so ist es erstmal einfacher, denke ich.)

In der ersten for-Schleife werden die beiden Hashes befüllt, in der zweiten wieder ausgelesen.

Perlish und bequem finde ich dabei, dass man nichts vordefinieren muss: $sum{$string} += $zahl; erzeugt beim erstmaligen Aufruf automatisch diesen key im Hash und setzt ihn für die folgende Addition von $zahl auf 0, sodass der value durch die Addition einfach auf $zahl gesetzt wird. Beim den folgenden Aufrufen wird die neue Zahl dann zur bisherigen hinzuaddiert. (Wenn zu dem neuen key nicht eine Zahl addiert sondern ein String angehängt würde, dann würde der value zunächst implizit auf einen empty-String gesetzt.)

Generell, wenn Werte verglichen (z.B. Duplikate gesucht) werden sollen ("Kommt der Wert x in (a..z) vor?", "Hatte ich diesen Wert schon einmal?" usw.), bietet es sich an, diesen Wert als key eines Hashes zu gebrauchen. Als solcher kann er nur einmal vorkommen. Um also z.B. in einer Schleife zu prüfen, ob ein String schon einmal vorgekommen ist, genügt if ($hash{$string}) { ... } (wenn der value einen wahren Wert hat, z.B. 1).

HTH
Grüße
payx