2009-01-18 Perl 5.8.8で全角・半角が混在する文字数を表示する Perl WindowsXP Perl 5.8.8 文字コードをUTF-8としてコーディングしています。 use Encode; print length(decode('sjis',$text));