sort, ne und merkwürdiges Verhalten - #178111 (Allgemeines zu Perl)

Gast Wastl

2014-11-04 21:18

Moin zusammen,

teste gerade ein wenig sort. Bei Versuch ein uniq nachzubilden, erhielt ich folgendes seltsames Ergebnis:

Code: (dl )

1
2
3

my @list = split //, "qwertz";
print @list;
print sort {$a ne $b} @list;

Ergebnis:

qwertz
ztrewq

also quasi ein reverse. Das funktioniert auch relativ zuverlässig, vorausgesetzt, man verwendet kein Wort mit gleichen, nebeneinander liegenden Buchstaben. Ersetzt man bspw. qwertz durch Rindfleischetikettierungsueberwachungsaufgabenuebertragungsgesetz erhält man folgendes Ergebnis:

Rindfleischetikettierungsueberwachungsaufgabenuebertragungsgesetz
zttteesegsgnugartrebeunebagfuasgnuhcawrebeusgnureikitehcsielfdniR

Hat dafür jemand eine Erklärung?
Last edited: 2014-11-04 21:36:03 +0100 (CET)