diff options
Diffstat (limited to 'utf8ord')
-rwxr-xr-x | utf8ord | 12 |
1 files changed, 12 insertions, 0 deletions
@@ -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 ""; + } +} |