perl - æ–‡å—列ã°ã‚‰ã—ã¯split //, $str㧠: 404 Blog Not Found2007å¹´11月27æ—¥13:30 カテゴリLightweight Languages perl - æ–‡å—列ã°ã‚‰ã—ã¯split //, $str㧠ã†ãƒ¼ã‚“ã€ã“ã“ãŒã‚ãã¾ã¸ã‚“。 [ã‚’] 転置インデックスã«ã‚ˆã‚‹æ¤œç´¢ã‚·ã‚¹ãƒ†ãƒ を作ã£ã¦ã¿ã‚ˆã†ï¼ 9 my @char = ($c =~ /([\x00-\x7f]|[\xC0-\xDF][\x80-\xBF]| 10 [\xE0-\xEF][\x80-\xBF]{2}| 11 [\xF0-\xF7][\x80-\xBF]{3})/gsx); æ–‡å—列をã°ã‚‰ã—ã¦(utf8ã®)æ–‡å—一ã¤ä¸€ã¤ã®é…列ã«ã™ã‚‹ã«ã¯ã€ãƒã‚¤ãƒˆåˆ—ã«æ£è¦è¡¨ç¾ã‚’ã‹ã¾ã™ã®ã§ã¯ãªãã€utf8æ–‡å—列ã«ã—ã¦ã‹ã‚‰ãã‚Œã«split //ã‚’ã‹ã¾ã™ã®ãŒä¸€ç•ªã§ã™ã€‚å˜ã«ã‚ã‹ã‚Šã‚„ã™ã„ã ã‘ã§ã¯ãªãã€ãã®æ–¹ãŒãšã£ã¨é«˜é€Ÿã§ã™ã€‚以下ã€Benchmark。 #!/usr/local/bin/perl use strict; u
KDDI/AUã§utf-8ã®HTMLフォームã‹ã‚‰é€ã‚‰ã‚Œã¦ãる絵文å—コード - Bulknews::Subtech - subtech
{{#tags}}- {{label}}
{{/tags}}