perl 中文切词解决方法

2012-03-13

perl 中文切词想把一段中文切成词，双字切词法。如：中华人民共和国---切成：中，华华，人人，们共，和和，国用per

perl 中文切词
想把一段中文切成词，双字切词法。如：中华人民共和国--->
切成：
中，华
华，人
人，们
共，和
和，国

用perl，怎么实现？？split吗？
求教！

[解决办法]
split 之后在join
[解决办法]
sub split_word
{
my ($str,$i);
$str = "中华人民共和国";
while($i<=length($str)-4)
{
print substr($str,$i,2).",".substr($str,$i+2,2)."\n";
$i+=2;
}
}
[解决办法]
你这个要是里面有个数字或英文字母，就死翘翘了

探讨

sub split_word
{
my ($str,$i);
$str = "中华人民共和国";
while($i<=length($str)-4)
{
print substr($str,$i,2).",".substr($str,$i+2,2)."\n";
$i+=2;
}
}