Siechfred: Sortieren eines Arrays nach jedem n-ten Element

Beitrag lesen

Oje, ich glaube, ich habe dich gründlich missverstanden. Zwar brauchst du in jedem Falle die Schwartzsche Transformation, aber in Perl gibt's natürlich ein Modul für solche Aufgaben: Sort::Array. Und weil ich so kolossal daneben lag, gleich noch ein praktisches Beispiel:

use strict;  
use diagnostics;  
use Sort::Array qw(Sort_Table);  
  
my @unsorted = ('Müller','Karl',82,  
                'Müller','Karla',79,  
                'Schulze','Maria',29,  
                'Schulze','Karl',32,  
                'Mayer','Dorothea',77,  
                'Mayer','Karl',78,  
                'Wichtig','Karl',66,  
                'Wichtig','Karla',64  
               );  
  
my @sorted = Sort_Table( cols      => '3',  
                         field     => '3',  
                         sorting   => 'ascending',  
                         structure => 'single',  
                         data      => \@unsorted,  
                       );  
  
print join "\n", @sorted;

Hoffe, dass es nun das ist, was du wolltest :)

Siechfred

--
Ich bin strenggenommen auch nur interessierter Laie. (molily)