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
{{#tags}}- {{label}}
{{/tags}}