From 94ea7a8cd41b5b0cebf2606f4319ca5050e80520 Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Sun, 5 Jul 2020 21:03:38 -0400
Subject: Add some new stuff

---
 utf8ord | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100755 utf8ord

(limited to 'utf8ord')

diff --git a/utf8ord b/utf8ord
new file mode 100755
index 0000000..f413906
--- /dev/null
+++ b/utf8ord
@@ -0,0 +1,12 @@
+#!/usr/bin/perl -CIOESA -w
+
+use charnames qw/:full/;
+
+#print ord($_), "\n" for @ARGV;
+
+for(@ARGV) {
+	for(split "") {
+		my $c = ord;
+		printf("%s\t%d\t%04x\t%s\n", $_, $c, $c, charnames::viacode($c)) for split "";
+	}
+}
-- 
cgit v1.2.3