2009å¹´09æ13æ¥13:00 ã«ãã´ãªLightweight Languages #perl - utf8::decode()ã§ã¯ãªãEncode::decode_utf8()ã使ãã¹ãçç± é§ç®ã§ãã [ã] Perl ã® utf8 ã¾ããã®ãã¾ããªã æè¿è¯ã使ããã¾ããªããã¨ãããã¤ãã£ãªã ã utf8::decode($text) unless utf8::is_utf8($text); ããããå ´åã¯ãEncode::decode_utf8()ã§ãªãã¨ã 以ä¸ãããããã ããã #!/usr/bin/perl use strict; use warnings; use Encode; use Devel::Peek; for my $bytes ( "\x2F", "\xC0\xAF", "\xE0\x80\xAF", "\xF0\x80\x80\xAF" ) { my $u
ãªãªã¼ã¹ãé害æ å ±ãªã©ã®ãµã¼ãã¹ã®ãç¥ãã
ææ°ã®äººæ°ã¨ã³ããªã¼ã®é ä¿¡
j次ã®ããã¯ãã¼ã¯
kåã®ããã¯ãã¼ã¯
lãã¨ã§èªã
eã³ã¡ã³ãä¸è¦§ãéã
oãã¼ã¸ãéã
{{#tags}}- {{label}}
{{/tags}}