perl中文处理

最新推荐文章于 2024-06-24 09:55:46 发布

平凡的兵

最新推荐文章于 2024-06-24 09:55:46 发布

阅读量1.1k

点赞数 1

分类专栏： Perl

本文链接：https://blog.csdn.net/chinabing/article/details/50223431

版权

Perl 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

# 汉字之间加入空格

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