UTF-8な文字列をsubstrする

ずいぶん以前からPerlで物を書くときには、文字コードをUTF-8にし、use utf8をしないで書いている。 で、その際、substrなどで文字列を切り出したいとすると、UTF-8は1文字あたりの長さが可変長であるため、入力文字列によっては変な文字が切り出されてしまうことになる。 これを正しく切り出すときに色々調べてみたメモ。 use utf8について Perl 5.8.x Unicode関連に記されているように、 1.ソースコード中の文字列がUTF8になる。 2.マルチバイトの変数名なども使える。 なことがウリらしく、表面上の意味は、PerlにscriptがUTF-8で書かれていることを教える事が目的らしいので、次のようなコードも通ります。*1 #!/usr/local/bin/perl use utf8; my $あいうえお = "x"; print $あいうえお; で、このときにs

[a2ikm]

Encode::encode_utf8(substr(Encode::decode_utf8($text), 0, 10));