perl中文处理

# 汉字之间加入空格

use strict;use warnings;use Encode;open(IN, "<", "中文文件.txt");open(OUT, ">", "中文文件.txt.processed");while(<IN>){chomp();my $line=$_;$line = decode("GB2312", $line);my @chars=split(//,$line);foreach(@chars){$_ = encode("GB2312", $_);print OUT "$_ ";    # 汉字之间加入空格}print OUT "\n";}close(IN);close(OUT);