ref:404 Blog Not Found:perl tips - Encodeãéã使ãæ¹æ³ å½ç¶ã®è©±ã ãã©ã対象ã®æååãé·ããªãã¨ãEncode::encode ãã$e->encode ã大差ãªãã ã¡ãã£ã¨ããã£ã¦è©¦ãã¦ã¿ãã use strict; use warnings; use Benchmark qw/cmpthese timethese/; use utf8; use Encode; use Jcode; use Unicode::Japanese; use Smart::Comments; my $str = join '', ( 'a' .. 'z', ( map { chr } ord('ã') .. ord('ã') ) ); $str = $str x shift if @ARGV; my $bytes = encode_utf8($str); my $u
{{#tags}}- {{label}}
{{/tags}}