ddlld345 / Computer / 两个关于汉字编码perl脚本

分享

   

两个关于汉字编码perl脚本

2015-02-12  ddlld345
No1 输出文件名包含汉字的脚本#暂时不用
#!/usr/bin/perl -w
use strict;
use utf8;
open(FH, "<:encoding(utf8)","a.txt") or die $!;
open(OFH, ">:encoding(utf8)", "a汉字.txt") or die $!;
my @strs=<FH>;
foreach (@strs){
    if ($_=~s/^\s+$//g) {
        print OFH $_;
    }else{print OFH $_;}
   
}
close OFH;
close FH;
No.2 处理汉字字符串
#!/usr/bin/perl -w
use strict;
use Encode;
my $dat="这是一个测试文本";
my $str=decode("gb2312",$dat);
my @chars=split //,$str;
foreach  (@chars) {
      print encode("gb2312",$_),"\n";
}

 

 

 

 
 

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多
    喜欢该文的人也喜欢 更多

    ×
    ×

    ¥.00

    微信或支付宝扫码支付:

    开通即同意《个图VIP服务协议》

    全部>>