3 # $Id: ucmsort,v 2.1 2004/08/31 10:55:34 dankogai Exp dankogai $
20 $u =~ s/^<U//o; $u =~ s/>.*//o;
21 push @lines,[ $u, @words ];
26 hex($a->[0]) <=> hex($b->[0]) # Unicode descending order
27 or $a->[2] cmp $b->[2] # fallback descending order
28 or $a->[1] cmp $b->[1] # Encoding descending order
32 print join(" " => "<U$u>", @$_), "\n";