zoukankan      html  css  js  c++  java
  • perl use utf8 no utf8 字符长度区别

    1.
    [oracle@oadb utf-8]$ cat a1.pl 
    my $str="测试更健康";
    print length($str);
    print "
    ";
    print $str."
    ";
    
    print "11111111111111
    ";
    
    [oracle@oadb utf-8]$ perl a1.pl 
    15
    测试更健康
    11111111111111
    
    字符串长度为15
    
    [oracle@oadb utf-8]$ cat a1.pl 
    use Encode;
    my $str="测试更健康";
    print length($str);
    print "
    ";
    print $str."
    ";
    print "11111111111111
    ";
    $str=encode_utf8($str);
    print length($str);
    print "
    ";
    print $str."
    ";
    [oracle@oadb utf-8]$ perl a1.pl 
    15
    测试更健康
    11111111111111
    30
    æµè¯æ´å¥åº·
    [oracle@oadb utf-8]$ 
    
    $str=encode_utf8($str); 后字符长度变成30
    
    
    启用utf8:
    
    [oracle@oadb utf-8]$ perl a2.pl 
    5
    Wide character in print at a2.pl line 6.
    测试更健康
    11111111111111
    
    字符串长度变成5
    
    
    [oracle@oadb utf-8]$ cat a2.pl 
    use Encode;
    use utf8;
    my $str="测试更健康";
    print length($str);
    print "
    ";
    print $str."
    ";
    print "11111111111111
    ";
    $str=encode_utf8($str);
    print length($str);
    print "
    ";
    print $str."
    ";
    print "11111111111111
    ";
    [oracle@oadb utf-8]$ perl a2.pl 
    5
    Wide character in print at a2.pl line 6.
    测试更健康
    11111111111111
    15
    测试更健康
    11111111111111

  • 相关阅读:
    web性能优化
    9.1_the end
    8.28_the end
    1.获取元素绝对位置
    8.14_end
    JavaScript 函数用途
    JavaScirpt事件处理
    《JavaScript语言精粹》读书笔记
    《图解http协议》之HTTPs学习笔记
    Laya 1.x 按文件夹TS代码合并
  • 原文地址:https://www.cnblogs.com/hzcya1995/p/13349828.html
Copyright © 2011-2022 走看看