如何判断读到的字串是 utf8 还是 gb2312??

gary4096

use CGI;
use Encode;

our $cgi=new CGI;
my $txt=$cgi->param("txt"); # 浏览器传来的中文字串
# 诺基亚手机浏览器传来的是 utf8
# Windows 浏览器传来的是 gb2312

if (Encode::is_utf8($txt,1)) # 我以为会判断，但是不对？！
{
        # 如果诺基亚手机之类的utf8，执行下面re-encode可以把$txt转成gb2312
        $txt = encode("gb2312",decode("utf8",$txt));
}

请教大虾们：
为什么 对诺基亚手机传来的字串 is_utf8() 仍然是 false? 是否上面的语法有误？
如何判断读进来的字串是utf8 还是 gb2312?

gary4096

谢谢各位大侠的指教。下午我自己写了一个土程序，好像可以：

sub is_utf8
{
        my ($txt)=@_;
        my $ii=0;
        my $len=length($txt)-1;

        while (ord(substr($txt,$ii,1))<128 && $ii<=$len)
        {
                $ii++;
        }
        if ($ii==$len) {return 0;}
        if (ord(substr($txt,$ii,1))>0xE0) {return 1;}
        return 0;
} # is_utf8