perl - use utf8; #ã£ã¦ä½•ã ? : 404 Blog Not Found2009å¹´06月15æ—¥07:00 カテゴリLightweight Languages perl - use utf8; #ã£ã¦ä½•ã ? id:otsuneã«å»ºè¨äºˆå®šãƒ•ãƒ©ã‚°ãŒãŸã¦ã‚‰ã‚Œã¦ã„ãŸã®ã§ã€‚ 冬通りã«æ¶ˆãˆè¡Œã制æœã‚¬ãƒ¼ãƒ«ã¯ã€å¤¢ç‰©èªžã«ãƒªã‚¢ãƒ«ã‚’求ã‚ãªã„。 - subtech Perl ã® utf8 関係ãŒæœªã å…¨ãç†è§£ã§ããªã„。ã‚ã‹ã‚‰ãªã„ã“ã¨ãŒã‚ã‹ã‚‰ãªã„ã®ã§æ•´ç† use utf8ã¯ã„ã¤ãƒ•ãƒ©ã‚°ã‚’ãŸã¦ã‚‹ã‹ use utf8 ã—ã¦ã¦ã‚‚フラグãŸãŸãªã„ã“ã¨ãŒã‚る…… ã“ã‚Œã¯ã€ä»¥ä¸‹ã®å®Ÿä¾‹ã‚’見ã¦ã„ãŸã ãã®ãŒä¸€ç•ªã‚ˆã„ã ã‚ã†ã€‚ #!/usr/bin/perl use strict; use warnings; use utf8 (); sub check_flag{ my $str = shift; print qq("$str" ), utf8::is_utf8($str) ? 'is' : 'IS NOT',
{{#tags}}- {{label}}
{{/tags}}