[vienna.pm] Hash sortieren

[Peter Seitz]

* * * vienna-pm-list * * *


Hallo Leute,

ich habe ein kleines Problem bei einem Hash, den ich (fuer die 
Ausgabe) nach dem Wert sortieren moechte (Also nicht nach dem key)

Sortieren nach dem key habe ich wie folgt realisiert:

@string1 = ();
push (@string1, (keys %strings_db_short));
@sorted = ();
@sorted = sort (@string1);
print "\tsorting finished\n";


Ich bin mir aber unsicher, wie ich nun nach dem Wert sortieren kann. 
Die Werte kann ich ja mittels values bekommen, doch beim Ausdruck 
hatte ich dann Schwierigkeiten. Es kommt naemlich vor, dass die Werte 
mehrfach vorkommen. Mein Code hat hier auch die Werte mehrfach 
gedruckt...

@string1 = ();
push (@string1, (values %strings_db_ids));
@sorted = ();
@sorted = sort (@string1);
print "\tsorting finished\n";

open(STRINGS_IDS, ">$directory/$strings_ids_file")||
  die "Can't Open Strings File $directory/$strings_ids_file: $!\n";
$previous = '';
foreach (@sorted) {             # write ids.txt
#  print STRINGS_IDS "$strings_db_ids{$_}\, $_\n";
#  delete $strings_db_ids{$_};
  while (($first,$last) = each(%strings_db_ids)) {
    if ($_ eq $last) {
      print STRINGS_IDS "$first\, $last\n";
      delete $strings_db_ids{$last};
      next;
    } # if
  } # while
}


Wer kann mir einen Hinweis darauf geben, wie man das am 
geschicktesten macht?

Danke fuer Euere Hinweise.


With best compliments

           Peter Seitz
--

  Graz University of Technology, Austria - Fac. f. Civil Engineering
  mailto:seitz at bzs.tu-graz.ac.at - http://wwwbzs.tu-graz.ac.at/~seitz/

            Member of the Pegasus Mail Support Group
          Coordinator of the Pmail Translation Process

For information about translating Pegasus Mail, contact:
Han van den Bogaerde (jaabogae at caiw.nl) or
Peter Seitz (seitz at bzs.tu-graz.ac.at)

###
You are subscribed to vienna-pm-list as "Peter Seitz" <seitz at bzs.tu-graz.ac.at>
http://www.fff.at/fff/vienna.pm/