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);