Hallo Helmut, On Thursday 24 June 2004 07:54, Helmut Zengerling wrote:
Die Neusortierung findet hier statt: foreach (sort keys %hash) # ^^^^ { print FOUT join($sep, $_, $hash{$_}), "\n"; }
Allerdings sortiert Perl in den Hashs auch schon vor. Entweder schreibt man sich also eine eigene Sortierfunktion, die sort übergeben wird, oder man nimmt eine andere Variante, die am besten nicht gleich die Daten in einen Hash einliest. Bei großen Dateien könnte das Probleme machen.
Ferdinand
Man lässt, unter der voraussetzung das beide files gleich groß und bereits sortiert sind, die aktion mit den hashes einfach weg, liest sie parallel einnund schreibt dann die ergebnissse wieder raus. Ich hatte dir doch schon den Ansatz zugemailt :-)
Das schrieb ich doch schon gestern Abend so im Anschluss an die zitierte Mail so, indem ich das IMO schlechte Script Dominiks entsprechend halbwegs veränderte... Und das mit dem Zugemailt verstehe ich nicht. Das hier ist die einzige Mail, die ich von dir habe, und ich auch nur durch Zufall entdeckte, da sie ein AW: statt Re: hat und vorallem nicht an den entsprechenden Thread ging. Ferdinand