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)
Ich bin strenggenommen auch nur interessierter Laie. (molily)