奔溃中，请教一个关于perl脚本模式匹配的问题

yhyhh

回复 60# txh_zyy


    是的，呵呵，八过让人困扰的是大伙儿乐得灌水，问题还在，5555555。

yhyhh

小女子现在是在线看“扶凯”TX 发的精华帖子，自学perl了，喏，下面这篇好文。。。

[保留] 【汇总】Perl 教学视频-探索Perl的世界-Superor作品(更新到第十七章56集)

yhyhh

帖子就那么水了，哈哈
txh_zyy 发表于 2011-08-02 20:25

   在线讨论，交流 & 寻求答案了，呵呵~~

yhyhh

路漫漫其修远兮，吾将上下而求索~

yhyhh

回复 56# iakuf

    小女子要竭尽所能把楼掰回来了，实在歪的太厉害了~~

扶凯TX 给的源文件，关于下面这句去掉不行的，唯一要改动的是把utf-8 改成GB2312，即可正常运行，得到结果。********************************************************
我的意思是去掉这行
my $out = encode("utf-8",$value);
*********************************************************

   目前的问题还是2个，一是特殊字符不能正常显示，二是若是输入文件中填写多个查询号码(>21个)，那执行该perl脚本，会出错。错误提示如下：

         为什么会出现变量未初始化的情况呢？

         经再三思忖，作此决定，若是两个问题得以顺利解决，小女子定当自曝以谢众人。


*********************************************************
程序运行结果如下：
*********************************************************
C:\MyPractice\Perl>Test_ipcheck_v6.pl mobilelist_v1.txt
您查询的手机号码段      1340001 卡号归属地      '江苏犖尬?
您查询的手机号码段      1340002 卡号归属地      '江苏犖尬?
您查询的手机号码段      1340003 卡号归属地      '江苏犖尬?
您查询的手机号码段      1340004 卡号归属地      '江苏犖尬?
您查询的手机号码段      1340005 卡号归属地      '江苏犇暇?
您查询的手机号码段      1340006 卡号归属地      '江苏犇暇?
您查询的手机号码段      1340007 卡号归属地      '江苏犇暇?
您查询的手机号码段      1340008 卡号归属地      '江苏犝蚪?
您查询的手机号码段      1340009 卡号归属地      '江苏犝蚪?
您查询的手机号码段      1340010 卡号归属地      '河北牶??
您查询的手机号码段      1340011 卡号归属地      '河北犑?易?
您查询的手机号码段      1340012 卡号归属地      '河北牨６?
您查询的手机号码段      1340013 卡号归属地      '河北犝偶铱?
您查询的手机号码段      1340014 卡号归属地      '河北犘咸?
您查询的手机号码段      1340015 卡号归属地      '河北犘咸?
您查询的手机号码段      1340016 卡号归属地      '河北牨６?
您查询的手机号码段      1340017 卡号归属地      '河北牪字?
您查询的手机号码段      1340018 卡号归属地      '河北犘咸?
您查询的手机号码段      1340019 卡号归属地      '河北犘咸?
您查询的手机号码段      1340020 卡号归属地      '河北牶??
您查询的手机号码段      1340021 卡号归属地      '河北犑?易?
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 41, <FILE> line
22.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 41, <FILE> line
22.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 42, <FILE> line
22.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 42, <FILE> line
22.
                        ''
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 41, <FILE> line
23.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 41, <FILE> line
23.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 42, <FILE> line
23.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 42, <FILE> line
23.
                        ''
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 41, <FILE> line
24.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 41, <FILE> line
24.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 42, <FILE> line
24.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 42, <FILE> line
24.
                        ''
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 41, <FILE> line
25.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 41, <FILE> line
25.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 42, <FILE> line
25.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 42, <FILE> line
25.
                        ''
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 41, <FILE> line
26.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 41, <FILE> line
26.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 42, <FILE> line
26.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 42, <FILE> line
26.
                        ''
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 41, <FILE> line
27.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 41, <FILE> line
27.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 42, <FILE> line
27.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 42, <FILE> line
27.
                        ''
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 41, <FILE> line
28.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 41, <FILE> line
28.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 42, <FILE> line
28.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 42, <FILE> line
28.
                        ''
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 41, <FILE> line
29.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 41, <FILE> line
29.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 42, <FILE> line
29.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 42, <FILE> line
29.
                        ''
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 41, <FILE> line
30.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 41, <FILE> line
30.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 42, <FILE> line
30.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v6.pl line 42, <FILE> line
30.

zhlong8

有自曝啊，大家热情点 {:3_189:}

iakuf

我想是因为 IP138 的防刷机制。

yhyhh

回复 66# zhlong8


    那木就给力一点解决问题吧，哈哈~~~
           No pain， no gain.

yhyhh

回复 67# iakuf

    起初猜测也是这样子，因为出现变量未初始化的错误是随机性的，而隔一段时间之后运行同样的脚本，就能取回结果，这样子分析来看，若在程序内部加一个sleep函数可以解决这个问题吗？

x9x9

回复 69# yhyhh


    sleep会不会解决防刷没试，但稍稍sleep一下也是对人家server的尊重~

1. use strict;
   
2. use warnings;
   
3. use LWP::UserAgent;
   
4. use HTML::TreeBuilder;
   
5. 
   
6. my $ip_url='http://www.ip138.com:8080/search.asp?action=mobile&mobile=';
   
7. 
   
8. while (<DATA>) {
   
9. chomp;
   
10. print "$_\t";
    
11. my $link=$ip_url.$_;
    
12. my $cont=get_html("$link", "Accept-language" => "zh-cn", 'Accept-Charset' => 'gb2312', );
    
13. my $table=$1 if $cont=~m{<TABLE width=349 border="1" align="center" cellpadding="4" bordercolor=#3366cc style="border-collapse: collapse">(.*?)</TABLE>}s;
    
14. $table=~s/&nbsp\;/ /g;
    
15. my $root=HTML::TreeBuilder->new();
    
16. $root->strict_comment(1);
    
17. $root->parse($table);
    
18. $root->eof();
    
19. 
    
20. my $tr =($root->find_by_tag_name('tr'))[2];
    
21. my @kids = $tr->content_list(  );
    
22. if (@kids and ref $kids[1] and $kids[1]->tag() eq 'td') {
    
23. print $kids[1]->as_text(  ), "\n";
    
24. }
    
25. 
    
26. $root->delete;
    
27. sleep(2);
    
28. }
    
29. 
    
30. sub get_html {
    
31.   my $browser = LWP::UserAgent->new(  );
    
32.   $browser->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)');
    
33.   my $resp = $browser->get(@_);
    
34.   return ($resp->content, $resp->status_line, $resp->is_success,$resp) if wantarray;
    
35.   return unless $resp->is_success;
    
36.   return $resp->content;
    
37. }
    
38. 
    
39. __DATA__
    
40. 18810340688
    
41. 18810040188
    
42. 15932344334
    
43. 18703883394
    
44. 15901055555
    
45. 13245875555

复制代码