全角・半角混じった文字をいい感じにsubstrする

truncates.pl

use utf8;
use Encode qw/encode_utf8/;
sub truncates {
    my ($str, $size, $suffix) = @_;
    $str    = ''    unless $str;
    $size   = 32    unless $size;
    $suffix = "..." unless $suffix;
    my $b = 0;
    for (my $i = 0; $i < length $str; $i++) {
        $b += length(encode_utf8 substr($str, $i, 1)) == 1 ? 1 : 2;
        if ($b > $size) {
            return substr($str, 0, $i) . $suffix;
        }
    }
    $str;
}