Sortieren eine Arrays..

[klaus]

Das wars, es Funktioniert.

hi holger
ich würde das wauch vorher zerlegen und dann erst sortieren:
also
open(IN,$filename);
while(<IN>)
   {
   chomp;   # Zeilenumbruch weg
   s/^\s*//;  # leerzeichen, tabs und so am anfang weg
   s/\s*$//;  # leerzeichen, tabs und so am ende weg
   #hier noch Deine Zeichenumstelllung
   s/[äöüÄÖÜß]/$1;/g;
   my(@line) = split('',$_);
   push @besucher,[@line];
   #siehe auch perldsc
   }
$sortcol = 1;
foreach $lineref (sort {$a->[$sortcol] cmp $b->[$sortcol]} @besucher)
   {
   print "$line->[0], $line->[1] .....\n";
   #siehe auch perldsc List of List
   }