Help for this page
sub truncate_utf8 { my ($utf8, $len) = @_; $len += 0; # Make sure $len is a number. return $utf8 =~ s/^.{0,$len}\K(?![\x80-\xBF]).*//sr; }
sub truncate_utf8 { my ($utf8, $len) = @_; ... $next = chop($utf8) while (ord($next) & 0xC0) == 0x80; return $utf8; }
www.com | www.net | www.org
No recent polls found