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

Student87

2013-02-05 21:46

User since
2012-11-08
73 Artikel
BenutzerIn
[default_avatar]

Hab die Lösung, verstehe aber nicht warum es die Lösung ist:

Code (perl): (dl )

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

Im Bezug auf topeg's schwartz'sche Transformation würd ich gern wissen:
Was passiert bei $_->[0] ?
Und was pasiert bei $_=[$_,$1] ?