【转贴】用String-Multibyte改进Movable Type的中文截断

你可以采用两种方法安装此模块。一种是作为系统模块，在命令行下输入"ppm install String-Multibyte"；另一种是从这里下载String-Multibyte模块解压缩后，将Multibyte.pm文件和 Multibyte目录上传到MT安装目录的extlib\String（没有String目录的话，请自行创建）目录下。

安装好模块后，就可以在MT程序中调用。对我们而言，主要是修改两个文件，即\lib\MT\App下的CMS.pm和Trackback.pm。

打开这两个文件，在@MT::App::Trackback::ISA = qw( MT::App );前加上

use String::Multibyte;
my $utf8 = String::Multibyte->new('UTF8');随后将需要的$substr和$length函数换为$utf8->substr和$utf8->length。

Update! 2005.9.29

为了让 trim_to 参数正常，请打开 \lib\MT\Template\ 下的 Context.pm 文件，在 use MT::ErrorHandler; 前加上上述内容，然后将

if (my $len = $local_args{trim_to}) {
$str = substr $str, 0, $len if $len < length($str);
}

改为

if (my $len = $local_args{trim_to}) {
$str = $utf8->substr($str, 0, $len) if $len < $utf8->length($str);
}

据sah测时，目前只对采用静态方式的归档有作用。

随后将需要的$substr和$length函数换为$utf8->substr和$utf8->length。

:1,$s/length(/$utf8->length(/g