判定字符串是否为 utf8 的一个方法

黑色阳光_cu

1. #!/bin/env perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use Encode;
   
6. 
   
7. sub is_utf8
   
8. {
   
9.     my ($content) = @_;
   
10.     my $is_utf8;
    
11. 
    
12.     return $is_utf8 if ($content !~ /[\x80-\xff]/);
    
13.     my $encoded = decode("utf8", $content);
    
14.     Encode::_utf8_off($encoded);
    
15.     $is_utf8 = 1 if ($content eq $encoded);
    
16. 
    
17.     return $is_utf8;
    
18. }

复制代码

x9x9

谢谢分享~{:3_183:}

zhlong8

这个函数有啥用？
如果字符串里面保存的是 GBK 的 octet，那 decode 'utf8' 没意义啊。不如直接测试 SvUTF8 flag

黑色阳光_cu

这个函数有啥用？
如果字符串里面保存的是 GBK 的 octet，那 decode 'utf8' 没意义啊。不如直接测试 SvUTF ...
zhlong8 发表于 2011-04-18 22:05

   
要判断文件是否为 utf8 编码的

如果 文件是 utf8 编码的，那 decode 'utf8' 后，唯一的区別就是那个 utf8 flag 了，关了 utf8 flag 再看看和原来字符串是否一致，就知道原来字符串是否是 utf8 编码的了

2gua

嗯，还行......

zhlong8

要判断文件是否为 utf8 编码的

如果 文件是 utf8 编码的，那 decode 'utf8' 后，唯一的区別 ...
黑色阳光_cu 发表于 2011-04-18 22:15

    给 decode 提供错误的编码类型会有什么后果？

黑色阳光_cu

给 decode 提供错误的编码类型会有什么后果？
zhlong8 发表于 2011-04-18 22:20

没后果

zhlong8

{:3_188:} 来个异常多给力啊