2009å¹´03æ13æ¥07:07 Perl perlã®æ£è¦è¡¨ç¾ã§Unicodeãããã¯ã使ã ä»æ¥ãUnicodeãããã¯ã¨ãããã®ãåãã¦ç¥ãã¾ãããæ£è¦è¡¨ç¾ã§å©ç¨ã§ãã¾ãã ä¾ãã°ãåè§è±æ°åãããã¯åè§è¨å·ãã©ããããã§ãã¯ããã¨ãã«ã¯ããã®ããã«æ¸ãããã§ãã #!/usr/bin/perl use strict; use warnings; use utf8; use Encode qw(encode_utf8); my $str = "aã-ã0bcãdï¼e"; for ($str =~ /./g) { if (/\p{InBasicLatin}/) { print encode_utf8("$_ is latin\n"); } else { print encode_utf8("$_ is not latin\n"); } } \p{InBasicLatin} ã®é¨åãåè§è±
{{#tags}}- {{label}}
{{/tags}}