Natürlicher Sort, aber nicht mit @sorted = sort @unsorted (gelöst) - #165489 (Allgemeines zu Perl)

topeg

2013-02-05 18:00

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

was du sucht ist <=>

Code (perl): (dl )

1
2

my @unsorted = <IN>;
my @sorted = sort {($a=~/chr(\d+)/)[0] <=> ($b=~/chr(\d+)/)[0]}@unsorted;

schneller ist das:

Code (perl): (dl )

1
2

my @unsorted = <IN>;
my @sorted = map{$_->[0]} sort {$a->[1] <=> $b->[1]} map{/chr(\d+)/;$_=[$_,$1]}@unsorted;