diff options
author | Mark E. Shoulson <mark@kli.org> | 2019-05-30 09:25:00 -0400 |
---|---|---|
committer | Mark E. Shoulson <mark@kli.org> | 2019-05-30 09:25:00 -0400 |
commit | c8800eadf3392aa902cef871bbdb7e388d08a881 (patch) | |
tree | 5d000dfe890fc30e20069a6b0d2f9545b5c4d47e /sort-interim.pl | |
parent | Typos in ⟪⟫, oops. And ⬳ ⟿ added. (diff) | |
download | dotXCompose-c8800eadf3392aa902cef871bbdb7e388d08a881.tar.gz dotXCompose-c8800eadf3392aa902cef871bbdb7e388d08a881.tar.bz2 dotXCompose-c8800eadf3392aa902cef871bbdb7e388d08a881.zip |
More emoji, and also math-base and tags-base
Changes languished in my working dir for months, might as well commit & push.
Diffstat (limited to 'sort-interim.pl')
-rwxr-xr-x | sort-interim.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/sort-interim.pl b/sort-interim.pl index 2bd2a31..59821b3 100755 --- a/sort-interim.pl +++ b/sort-interim.pl @@ -7,7 +7,7 @@ sub process { my $data = shift; my $key; - $data =~ m@\s+(U[[:xdigit:]]+)\s+@; + $data =~ m@\s+U([[:xdigit:]]+)\s+@; $key=$1; if ($elts{$key}) { print STDERR "Warning: key $key found more than once.\n"; @@ -27,6 +27,6 @@ while (<>) { $this .= $_; } -for $k (sort keys %elts) { +for $k (sort { hex($a) <=> hex($b) } keys %elts) { print $elts{$k}; } |