Ok, das habe mit den Variablen habe ich angepaßt.


Ich habe auch noch mal nach $allCustomers{$count} = \%customer; diese Zeile hier eingefügt:
print $count . "-" . $allCustomers{$count}{'customerId'}."\n";
Da wird mir jeweils korrekt die Kundennummer zurückggeben.
...
1724-4567
1725-1234

Wenn das Einlesen der Datensätze beendet ist, habe ich jetzt mal testweise, noch vor Rückgabe ans Hauptprogramm, mir die Kundennummer in %allCustomers ausgeben lassen:

Da sieht die Liste so aus:
127-1234
1049-1234
71-1234
...

Es ist immer die Kundennummer, die als letztes aus der Datenbank kam. Bedeutet das, dass das hier falsch ist $allDdvCustomers{$count} = \%customer;

Aber das würde ja bedeuten, dass immer alle Sätze in %allCustomers überschrieben werden?!

PS: in meinem letzten Eintrag steht da von mir fehlerhaft "\%ddvCustomer". Das ist meinem Test im zweiten Editorfenster geschuldet. Es heißt im echten Programm immer "\%customer"

Danke für eure Mühen.
Last edited: 2012-09-17 12:28:42 +0200 (CEST)