奔潰中，請(qǐng)教一個(gè)關(guān)于perl腳本模式匹配的問(wèn)題

yhyhh

回復(fù) 60# txh_zyy


    是的，呵呵，八過(guò)讓人困擾的是大伙兒樂(lè)得灌水，問(wèn)題還在，5555555。

yhyhh

小女子現(xiàn)在是在線看“扶凱”TX 發(fā)的精華帖子，自學(xué)perl了，喏，下面這篇好文。。。

[保留] 【匯總】Perl 教學(xué)視頻-探索Perl的世界-Superor作品(更新到第十七章56集)

yhyhh

帖子就那么水了，哈哈
txh_zyy 發(fā)表于 2011-08-02 20:25

   在線討論，交流 & 尋求答案了，呵呵~~

yhyhh

路漫漫其修遠(yuǎn)兮，吾將上下而求索~

yhyhh

回復(fù) 56# iakuf

    小女子要竭盡所能把樓掰回來(lái)了，實(shí)在歪的太厲害了~~

扶凱TX 給的源文件，關(guān)于下面這句去掉不行的，唯一要改動(dòng)的是把utf-8 改成GB2312，即可正常運(yùn)行，得到結(jié)果。********************************************************
我的意思是去掉這行
my $out = encode("utf-8",$value);
*********************************************************

   目前的問(wèn)題還是2個(gè)，一是特殊字符不能正常顯示，二是若是輸入文件中填寫(xiě)多個(gè)查詢號(hào)碼(>21個(gè))，那執(zhí)行該perl腳本，會(huì)出錯(cuò)。錯(cuò)誤提示如下：

         為什么會(huì)出現(xiàn)變量未初始化的情況呢？

         經(jīng)再三思忖，作此決定，若是兩個(gè)問(wèn)題得以順利解決，小女子定當(dāng)自曝以謝眾人。


*********************************************************
程序運(yùn)行結(jié)果如下：
*********************************************************
C:\MyPractice\Perl>Test_ipcheck_v6.pl mobilelist_v1.txt
您查詢的手機(jī)號(hào)碼段      1340001 卡號(hào)歸屬地      '江蘇犖尬?
您查詢的手機(jī)號(hào)碼段      1340002 卡號(hào)歸屬地      '江蘇犖尬?
您查詢的手機(jī)號(hào)碼段      1340003 卡號(hào)歸屬地      '江蘇犖尬?
您查詢的手機(jī)號(hào)碼段      1340004 卡號(hào)歸屬地      '江蘇犖尬?
您查詢的手機(jī)號(hào)碼段      1340005 卡號(hào)歸屬地      '江蘇犇暇?
您查詢的手機(jī)號(hào)碼段      1340006 卡號(hào)歸屬地      '江蘇犇暇?
您查詢的手機(jī)號(hào)碼段      1340007 卡號(hào)歸屬地      '江蘇犇暇?
您查詢的手機(jī)號(hào)碼段      1340008 卡號(hào)歸屬地      '江蘇犝蚪?
您查詢的手機(jī)號(hào)碼段      1340009 卡號(hào)歸屬地      '江蘇犝蚪?
您查詢的手機(jī)號(hào)碼段      1340010 卡號(hào)歸屬地      '河北牶??
您查詢的手機(jī)號(hào)碼段      1340011 卡號(hào)歸屬地      '河北犑?易?
您查詢的手機(jī)號(hào)碼段      1340012 卡號(hào)歸屬地      '河北牨６?
您查詢的手機(jī)號(hào)碼段      1340013 卡號(hào)歸屬地      '河北犝偶銥?
您查詢的手機(jī)號(hào)碼段      1340014 卡號(hào)歸屬地      '河北犘咸?
您查詢的手機(jī)號(hào)碼段      1340015 卡號(hào)歸屬地      '河北犘咸?
您查詢的手機(jī)號(hào)碼段      1340016 卡號(hào)歸屬地      '河北牨６?
您查詢的手機(jī)號(hào)碼段      1340017 卡號(hào)歸屬地      '河北牪字?
您查詢的手機(jī)號(hào)碼段      1340018 卡號(hào)歸屬地      '河北犘咸?
您查詢的手機(jī)號(hào)碼段      1340019 卡號(hào)歸屬地      '河北犘咸?
您查詢的手機(jī)號(hào)碼段      1340020 卡號(hào)歸屬地      '河北牶??
您查詢的手機(jī)號(hào)碼段      1340021 卡號(hào)歸屬地      '河北犑?易?
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

有自曝啊，大家熱情點(diǎn) {:3_189:}

iakuf

我想是因?yàn)?IP138 的防刷機(jī)制。

yhyhh

回復(fù) 66# zhlong8


    那木就給力一點(diǎn)解決問(wèn)題吧，哈哈~~~
           No pain， no gain.

yhyhh

回復(fù) 67# iakuf

    起初猜測(cè)也是這樣子，因?yàn)槌霈F(xiàn)變量未初始化的錯(cuò)誤是隨機(jī)性的，而隔一段時(shí)間之后運(yùn)行同樣的腳本，就能取回結(jié)果，這樣子分析來(lái)看，若在程序內(nèi)部加一個(gè)sleep函數(shù)可以解決這個(gè)問(wèn)題嗎？

x9x9

回復(fù) 69# yhyhh


    sleep會(huì)不會(huì)解決防刷沒(méi)試，但稍稍sleep一下也是對(duì)人家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

復(fù)制代碼