Opened by [E|B] at 2004-02-23 19:08
Code: (dl
)
1
2
3
4
5
6
7
8
@x = map { $_->[0] }
sort {
$a->[1] =~ s/([a-fA-F0-9]{2})/pack("C", hex($1))/eg;
$b->[1]=~ s/([a-fA-F0-9]{2})/pack("C", hex($1))/eg;
$a->[1] cmp $b->[1];
}
map {[$_, split /\|/]} @array;ich würds im Grunde so machen, nur leider klappt da mit der Umwandlung was bei mir nicht und ich hab keine Zeit zum Testen.
Steve