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

yhyhh

難道真的要這樣子一個一個添加嗎？有點(diǎn)疑惑了？

yhyhh

好吧，精衛(wèi)填海，麻雀筑巢中~~~，一個一個地補(bǔ)充庫文件。是這樣子的嗎？

是不是重新?lián)Q個activeperl的安裝文件會好一些呢？


C:\MyPractice\Perl>Test_ipcheck_v5.pl mobilelist_v1.txt
Can't locate XML/XPathEngine.pm in @INC (@INC contains: C:/Perl/site/lib C:/Perl/lib .) at C:/Perl/lib/HTML/TreeBuilder/
XPath.pm line 103.
BEGIN failed--compilation aborted at C:/Perl/lib/HTML/TreeBuilder/XPath.pm line 103.
Compilation failed in require at C:/Perl/lib/Web/Scraper.pm line 10.
BEGIN failed--compilation aborted at C:/Perl/lib/Web/Scraper.pm line 10.
Compilation failed in require at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 6.
BEGIN failed--compilation aborted at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 6.

C:\MyPractice\Perl>
C:\MyPractice\Perl>Test_ipcheck_v5.pl mobilelist_v1.txt
Can't locate HTML/Selector/XPath.pm in @INC (@INC contains: C:/Perl/site/lib C:/Perl/lib .) at C:/Perl/lib/Web/Scraper.p
m line 11.
BEGIN failed--compilation aborted at C:/Perl/lib/Web/Scraper.pm line 11.
Compilation failed in require at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 6.
BEGIN failed--compilation aborted at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 6.

C:\MyPractice\Perl>Test_ipcheck_v5.pl mobilelist_v1.txt
Can't locate UNIVERSAL/require.pm in @INC (@INC contains: C:/Perl/site/lib C:/Perl/lib .) at C:/Perl/lib/Web/Scraper.pm
line 12.
BEGIN failed--compilation aborted at C:/Perl/lib/Web/Scraper.pm line 12.
Compilation failed in require at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 6.
BEGIN failed--compilation aborted at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 6.

C:\MyPractice\Perl>

yhyhh

呵呵，守得云開見月明了。不過好像中文解碼錯了，好吧，待小女子把如下解碼方式變一變再來檢驗(yàn)一番程序運(yùn)行結(jié)果。

encode("gb2312",$value) --》 encode("utf-8",$value)


Anyway，終于有輸出結(jié)果了啊，看到浙江兩個字，興奮之情不禁溢于言表。

C:\MyPractice\Perl>Test_ipcheck_v5.pl mobilelist_v1.txt
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 31, <FILE> line
1.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 32, <FILE> line
1.
        1396703         浙江犪櫓?

C:\MyPractice\Perl>

yhyhh

O my god, 改了編碼方式之后，更加認(rèn)不得了。

C:\MyPractice\Perl>Test_ipcheck_v5.pl mobilelist_v1.txt
Parsing of undecoded UTF-8 will give garbage when decoding entities at C:/Perl/lib/Web/Scraper.pm line 116, <FILE> line
1.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 31, <FILE> line
1.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 32, <FILE> line
1.
        1396703         嫻欐睙犺、宸?

C:\MyPractice\Perl>

yhyhh

按“fukai” 的鏡像TX --> ' iakuf ' 于三樓的提出的建議代碼，程序執(zhí)行結(jié)果如下：

C:\MyPractice\Perl>Test_ipcheck_v6.pl mobilelist_v1.txt
Parsing of undecoded UTF-8 will give garbage when decoding entities at C:/Perl/lib/Web/Scraper.pm line 116, <FILE> line
1.
鎮(zhèn)ㄦ煡璇㈢殑鎵嬫満鍙風(fēng)爜孌?1396703      鍗″彿褰掑睘鍦?嫻欐睙犺、宸?

C:\MyPractice\Perl>

還是有問題？ 請問扶凱TX 還能出來作些補(bǔ)充解答嗎？ 小女子不甚感激！

yhyhh

妹子，到cpan上把這個模塊找到，裝上！或者用cpanm裝
txh_zyy 發(fā)表于 2011-07-25 20:59

      多謝大俠的建議，現(xiàn)在我是很笨拙地去"http://search.cpan.org/"里把庫文件逐個兒搜索出來，然后加到perl的lib中去的，原來的問題是解決了。
    本著虛心求教，不懂就問，打破沙鍋問到底的學(xué)習(xí)精神，想再問大俠一句，"用cpanm裝"是什么意思呢？我相信魔鬼藏于細(xì)節(jié)之中，對您老這句話不甚理解，肯定是錯過了一些有用信息的。望勿要見怪啊！

yhyhh

匯報(bào)最新進(jìn)展 & 期待最終解決方案。

C:\MyPractice\Perl>Test_ipcheck_v5.pl mobilelist_v1.txt
您查詢的手機(jī)號碼段      1340001 卡號歸屬地      江蘇犖尬?
您查詢的手機(jī)號碼段      1340002 卡號歸屬地      江蘇犖尬?
您查詢的手機(jī)號碼段      1340003 卡號歸屬地      江蘇犖尬?
您查詢的手機(jī)號碼段      1340004 卡號歸屬地      江蘇犖尬?

C:\MyPractice\Perl>


中文編碼方式是 “gb2312”

yhyhh

為什么批量執(zhí)行查詢電話號碼，會變成這樣子的結(jié)果呢：

C:\MyPractice\Perl>Test_ipcheck_v5.pl mobilelist_v1.txt
您查詢的手機(jī)號碼段      1340001 卡號歸屬地      江蘇犖尬?
您查詢的手機(jī)號碼段      1340002 卡號歸屬地      江蘇犖尬?
您查詢的手機(jī)號碼段      1340003 卡號歸屬地      江蘇犖尬?
您查詢的手機(jī)號碼段      1340004 卡號歸屬地      江蘇犖尬?
您查詢的手機(jī)號碼段      1340005 卡號歸屬地      江蘇犇暇?
您查詢的手機(jī)號碼段      1340006 卡號歸屬地      江蘇犇暇?
您查詢的手機(jī)號碼段      1340007 卡號歸屬地      江蘇犇暇?
您查詢的手機(jī)號碼段      1340008 卡號歸屬地      江蘇犝蚪?
您查詢的手機(jī)號碼段      1340009 卡號歸屬地      江蘇犝蚪?
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 31, <FILE> line
10.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 31, <FILE> line
10.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 32, <FILE> line
10.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 32, <FILE> line
10.

Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 31, <FILE> line
11.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 31, <FILE> line
11.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 32, <FILE> line
11.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 32, <FILE> line
11.

Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 31, <FILE> line
12.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 31, <FILE> line
12.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 32, <FILE> line
12.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 32, <FILE> line
12.

Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 31, <FILE> line
13.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 31, <FILE> line
13.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 32, <FILE> line
13.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 32, <FILE> line
13.

Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 31, <FILE> line
14.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 31, <FILE> line
14.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 32, <FILE> line
14.
Use of uninitialized value in concatenation (.) or string at C:\MyPractice\Perl\Test_ipcheck_v5.pl line 32, <FILE> line
14.


mobilelist_v1.txt 文件內(nèi)容為：

1340001
1340002
1340003
1340004
1340005
1340006
1340007
1340008
1340009
1340010
1340011
1340012
1340013
1340014
1340015
1340016
1340017
1340018
1340019
1340020

flw

選擇了 Perl，卻不懂得如何安裝 CPAN 模塊，這到底有沒有正兒八經(jīng)把 Perl 黨走吃飯的家伙對待呀？

一個一個下載下來 copy 到 lib 目錄，你可真有才。隨便一本書上都有講怎么安裝 Perl 模塊的。

還是先端正態(tài)度吧。你不好好學(xué) Perl，Perl 就不會讓你爽。

zhlong8

知道用 search.cpan.org 卻不知道用 CPAN 命令的人才啊