郁闷的字符串比较问题，显示明明一样，可就不能执行相等时的语句

sx98083714

foreach my $n(0..$i){
print "loop now : $poster : $userlist[$n] \n";
                if ("$userlist[$n]" eq "$poster"{
                        print "title : \t ".$row->{"title"}."\n";
                        print "poster : \t ".$row->{"poster"}."\n";
                }
}

郁闷，从print显示上看：$poster和$userlist[$n] 显示出来的结果完全一样。
可就是不能执行：
                        print "title : \t ".$row->{"title"}."\n";
                        print "poster : \t ".$row->{"poster"}."\n";
这二句。

编码方面：$poster是从网页上抓来的东西，该网页是用utf8编码的，$userlist[$n] 是我在linux下保存在文件里的内容，默认就是utf8编码的，我就奇怪了，为啥就不能相等呢？

救我呀！

sx98083714

我先来顶了！

churchmice

你length一下你要比较的两个变量，看看结果是不是一样的？
我觉得吧，这个就是编码不一致造成的，保证以下两个
1. 网页的内容使用如下方式解码

1. 
   
2. Encode::decode("UTF-8",$content)
   

复制代码

2.如果是读入文件，使用如下方法读取

1. 
   
2. open my $file,"<:encoding(UTF-8)",$filename
   

复制代码

或者你自己通过(_utf8_on,_utf8_off)去设置编码（不推荐）

guap514

我猜可能是 $poster 或者 $userlist[$n] 里面有\t\s\n等
$poster =~ s/\W//g;  试试看

sx98083714

谢谢二楼的兄弟，用length测试过了，长度相同，你说怪不怪。

sx98083714

#!/usr/bin/perl
use strict;
use URI;
use Encode;
use Web::Scraper;
open(FH,"<:encoding(UTF-","userlist";
my $i=0;
my @userlist;
while(<FH>{
        #decode('utf8',$_);
        my $user=$_;
        $user=~s/\n\r//;
        Encode::_utf8_on($user);
        chomp($user);
        $userlist[$i]=$user;
        $i++;
}
my $url="http://bbs.sh.libaclub.com/f_37_199_1.htm";
my $scraper=scraper{
        process '//tr[@class="list_item"]',"rows[]"=>scraper{
                process ".i2 > a",link=>'@href',title=>'TEXT';
                process ".i4 > a",poster=>'TEXT';
                };
        };
my $res=$scraper->scrape(URI->new($url));
for my $row(@{$res->{rows}}){
my $poster=$row->{"poster"};
        Encode::_utf8_on($poster);
        chomp($poster);
        foreach my $n(0..$i){
                if ("$userlist[$n]" eq "$poster"{
                        print "title : \t ".$row->{"title"}."\n";
                        print "poster : \t ".$row->{"poster"}."\n";
                }
        }
}

cat   userlist    我想把这个文件中包含的用户发的贴子都输出出来
sx98083714   
ideal.shen

http://bbs.sh.libaclub.com/f_37_199_1.htm
这是篱芭的一个版块，我上面使用sx98083714这个用户名发了二个贴子，我想把对应的贴子标题等输出出来。

我全部贴出来，劳驾高手来指点下迷津了，谢谢！

churchmice

多说几句吧

1. 
   
2. use strict;
   
3. use warnings;
   
4. use Encode qw(is_utf8);
   
5. print "utf8 flag is on\n" if is_utf8($ARGV[0]);
   
6. print length($ARGV[0]),"\n";
   

复制代码

kernel@fairland:~/tmp$ ./read.pl 测试
6

我的终端是en_US-UTF-8编码的，如果你认为既然都是UTF-8编码的就可以不用解码就错了

perl并不知道外部输入的内容是什么编码的，所以你需要解码

1. 
   
2. use strict;
   
3. use warnings;
   
4. use Encode qw(is_utf8);
   
5. $ARGV[0]=Encode::decode("UTF-8",$ARGV[0]);
   
6. print "utf8 flag is on\n" if is_utf8($ARGV[0]);
   
7. print length($ARGV[0]),"\n";
   

复制代码

kernel@fairland:~/tmp$ ./read.pl 测试
utf8 flag is on
2

同样的，你从文件中读取数据也需要解码，你可以读一行然后使用Encode::decode解码，或者也可以让perl帮你做，方法就是在打开文件的时候就指名文件编码

1. 
   
2. open my $file,"<:encoding(UTF-8)",$filename
   

复制代码

同样的对于STDIN,STDOUT,STDERR也可以类似的设置

1. 
   
2. binmode STDIN,":encoding(UTF-8)";
   

复制代码

最后说一句，从命令行传进来的参数(@ARGV)不属于STDIN

sx98083714

受教了，非常感谢！

我再整理下看看。

churchmice

如果是纯英文的话跟编码没有关系的，你再检查检查吧，把
use warnings 加上，看看是不是其他地方出错了，特别注意空格等不可见字符，看看是不是因为这个导致字符串不一样
而且你的东西length又一样，我这边重现不了，Scraper有些依赖我这边不能满足，懒得整了

sx98083714

use warnings 开了，警告也没有，真晕了。可能是空格换行之类导致的吧，得休息了，明天继续找。谢谢楼上热心的哥们，也早点睡吧。