Add some new stuff

1 files changed, 12 insertions, 0 deletions

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 "";
+	}
+}