Added codepoint function

2026-08-21 18:55:58 +10:00 · 2012-03-28 14:45:17 +03:00
parent b78d8cfd2f
commit b70515792c
1 changed files with 5 additions and 0 deletions
@@ -62,4 +62,9 @@ function escape() {
 function unidecode() {
 	perl -e "binmode(STDOUT, ':utf8'); print \"$@\""
 	echo # newline
+}
+
+# Get a character's unicode codepoint
+function codepoint() {
+  perl -e "use utf8; print sprintf('U+%04X', ord(\"$@\"))"
 }