codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
use strict; use warnings; use utf8; use Unicode::Normalize qw/NFKC NFKD NFC NFD/; binmode STDOUT, ":utf8"; print "$Unicode::Normalize::VERSION\n"; my $src = "あアア がガガ ぱパパ むムム゙ abcabc 123123 ①②Ⅲⅳ"; print NFKC($src) . "\n"; repr(NFKC($src)); print "\n"; print NFKD($src) . "\n"; repr(NFKD($src)); print "\n"; print NFC($src) . "\n"; repr(NFC($src)); print "\n"; print NFD($src) . "\n"; repr(NFD($src)); print "\n"; sub repr { my $str = shift; for(0..length($str)-1) { printf("\\u%04X", unpack("U", substr($str, $_, 1)) ); } }
Private
[
?
]
Run code
Submit