perl对于utf8编码文件的substr

概述perl脚本本省使用utf8编码，环境默认编码为utf8 1.加上use utf8; 后，print substr("哈哈",0,1),"\n";就正常输出了 2.但是，读入utf8编码的文件在做substr还是有问题，加上 FH,"<:utf8"就好了 Wide character in print 的警告信息，加上3.但是，会有 binmode(STDIN, ':encoding(utf8)'

perl脚本本省使用utf8编码，环境默认编码为utf8

1.加上use utf8; 后，print substr("哈哈",1),"\n";就正常输出了

2.但是，读入utf8编码的文件在做substr还是有问题，加上 FH,"<:utf8"就好了

WIDe character in print 的警告信息，加上3.但是，会有

binmode(STDIN,':enCoding(utf8)');
binmode(STDOUT,':enCoding(utf8)');
binmode(STDERR,':enCoding(utf8)');
就好了

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
binmode(STDIN,':enCoding(utf8)');
binmode(STDOUT,':enCoding(utf8)');
binmode(STDERR,':enCoding(utf8)');

print substr("哈哈","\n";
open FH,"<:utf8",$file"||dIE "can't open file:$!";
my $i=0;
        while(<FH>){
        chomp $_;
        print $_,"\n";
        print substr($_,"\n";
        }
        close FH;

总结

以上是内存溢出为你收集整理的perl对于utf8编码文件的substr全部内容，希望文章能够帮你解决perl对于utf8编码文件的substr所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。