perl读取utf-8编码文件乱码问题

kitsilence

文件是以utf-8编码存放的txt文件，用perl读取文件

并传递给调用google搜索的模块-- REST::Google::Search

搜索的结果不对，查看了下，原来是因为读取文件传递过去的

文本是乱码！！！请问这个问题该怎么解决？？？

兰花仙子

信息太少，无从判断。例如输入输出字符环境不同，转换方法都不同。

我的终端环境是UTF-8，文本也是UTF-8，那么如下脚本可正常输出：

1. use strict;
   
2. use encoding "utf-8";
   
3. 
   
4. open(FH, "<:utf8", "abc.txt") or die $!;
   
5. while(<FH>) {
   
6.    print;
   
7. }
   
8. close FH;

复制代码

兰花仙子

再比如我的终端环境是GB2312，那么脚本要如下：

1. use strict;
   
2. use Encode;
   
3. 
   
4. open(FH, "<:utf8", "abc.txt") or die $!;
   
5. while(<FH>) {
   
6.    print encode("gb2312",$_);
   
7. }
   
8. close FH;

复制代码

kitsilence

[/code][b]回复 [url=http://bbs.chinaunix.net/redirect.php?goto=findpost&pid=13422877&ptid=1852464]3#[/url] [i]兰花仙子[/i] [/b]

[code]use strict;
use REST::Google::Search;
use Encode qw/encode decode/;
use utf8;

open(TXT,"D:/new.txt") or die "Error!!!";
while(my $line = <TXT>){
        searchUrl($line);
}

close(TXT);


sub searchUrl{
        my ($key) = @_;
        REST::Google::Search->http_referer('WEB');   
    my $res = REST::Google::Search->new(
                q => $key,
                                start =>0,
                                rsz => 8
        );
         if ($res->responseStatus == 200){
                print "-----------------------";
        my $data = $res->responseData;
               
        my @results = $data->results;
        print scalar(@results);
        foreach my $r (@results) {
                        printf "\n";
            printf "title: %s\n", encode("gbk", $r->title) ;
            printf "url: %s\n", encode("gbk",$r->url );
                       
        }
         }
}

嗯~ 我把相关代码贴出来，文本我说过了编码是utf-8的，编辑器是editplus编码我也用了utf-8的

我的主要困惑是程序读取到的编码不就是utf-8吗，它传递给google接收的编码也应该是utf-8的，

而现实是google接收到了乱码~~~

兰花仙子

改成我说的open格式吧。

如果是请求Google的API，那么request header里也要设置好content-type的charset为UTF-8。

kitsilence

回复 5# 兰花仙子


    嗯 好的

   谢谢你的帮助！

kitsilence

回复 5# 兰花仙子


    仙子你好，其实我要读取的文件应该是excel，我查了半天也没查到excel存储是用的什么编码~~~

    我的excel是2003的

兰花仙子

回复  兰花仙子


    仙子你好，其实我要读取的文件应该是excel，我查了半天也没查到excel存储是用的什 ...
kitsilence 发表于 2011-01-28 16:39

    我的excel2003是utf8，前几天刚好写过一个脚本解析xcel，也用了这2个模块：

use encoding "utf-8";
use Spreadsheet::ParseExcel;