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

seufy88

知道用 search.cpan.org 卻不知道用 CPAN 命令的人才啊
zhlong8 發(fā)表于 2011-07-26 09:19

我好像也沒(méi)用過(guò) -MCPAN,我喜歡自己從cpan.org上下下來(lái)再手動(dòng)安裝，有一次連續(xù)裝了六十多個(gè)模塊，那依賴(lài)性讓我快瘋了

zhlong8

我好像也沒(méi)用過(guò) -MCPAN,我喜歡自己從cpan.org上下下來(lái)再手動(dòng)安裝，有一次連續(xù)裝了六十多個(gè)模塊，那依 ...
seufy88 發(fā)表于 2011-07-26 09:26

    不喜歡和不懂是兩碼事，嫌手工安裝麻煩才有了 CPAN 模塊，還是麻煩才有了 ppm 和 cpanm。大家都已經(jīng)到工業(yè)時(shí)代了你還在手工勞動(dòng)

seufy88

回復(fù) 22# zhlong8


    之前用perl的電腦不能上網(wǎng)阿。。。。 手工也蠻好的，對(duì)本機(jī)上的模塊更加了解嘛。就像喜歡用源代碼編譯安裝一樣，具體安在哪，安了多少，編譯時(shí)支持了什么沒(méi)支持什么，庫(kù)新增多少等都了如直掌，用rpm安裝后就感覺(jué)“太亂了”，我對(duì)它沒(méi)有控制力。zhlong8見(jiàn)笑了。

zhlong8

回復(fù)  zhlong8


    之前用perl的電腦不能上網(wǎng)阿。。。。 手工也蠻好的，對(duì)本機(jī)上的模塊更加了解 ...
seufy88 發(fā)表于 2011-07-26 09:52

    只是看到以不喜歡為由拒絕好東西的時(shí)候會(huì)反省，或者強(qiáng)迫別人反省

    能分享下你手工安裝的收獲嗎？我覺(jué)得用處不大�；蛘吣憧梢詫W(xué)下 CPAN::Mini 順便建個(gè)本地鏡像

seufy88

只是看到以不喜歡為由拒絕好東西的時(shí)候會(huì)反省，或者強(qiáng)迫別人反省

    能分享下你手 ...
zhlong8 發(fā)表于 2011-07-26 10:04

    你們都用CPAN來(lái)安裝模塊嗎？？好吧，我過(guò)會(huì)試一試。之前真的習(xí)慣了�，F(xiàn)在努力改用一下 好東西當(dāng)然不能拒絕啦

yhyhh

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

一個(gè)一 ...
flw 發(fā)表于 2011-07-26 04:24

      惹惱版主了，十分抱歉啊。小女子曾經(jīng)做過(guò)些許時(shí)間程序員，用過(guò)c++ 和 java，現(xiàn)在不是了呢，本職工作與perl毫無(wú)關(guān)聯(lián)。知道自己不是那塊料，所以轉(zhuǎn)型了。這次用到perl屬于偶然，是自己在業(yè)余時(shí)間琢磨著完成一個(gè)小項(xiàng)目過(guò)程中遇到的，網(wǎng)上搜遍資料，得出建議用perl實(shí)現(xiàn)較為容易。小女子聽(tīng)聞ChinaUnix的論壇的perl板塊是一個(gè)很專(zhuān)業(yè)的perl學(xué)習(xí)交流之所，高手云集，誠(chéng)心上來(lái)求教一二啊。望見(jiàn)諒，望海涵。

yhyhh

回復(fù) 20# zhlong8


    很迥滴說(shuō)，第一次接觸到這個(gè) “search.cpan.org”， 也是在昨晚，在 txh_zyy 大俠 給出的7樓的回復(fù)，小女子是根據(jù)這個(gè)關(guān)鍵字，上百度和google搜索出來(lái)的。

yhyhh

為什么批量執(zhí)行查詢(xún)電話(huà)號(hào)碼，會(huì)變成這樣子的結(jié)果呢：

C:\MyPractice\Perl>Test_ipcheck_v5.pl mobilelist_v1.txt
您查詢(xún)的手機(jī)號(hào)碼段      1340001 卡號(hào)歸屬地      江蘇犖尬?
您查詢(xún)的手機(jī)號(hào)碼段      1340002 卡號(hào)歸屬地      江蘇犖尬?
您查詢(xún)的手機(jī)號(hào)碼段      1340003 卡號(hào)歸屬地      江蘇犖尬?
您查詢(xún)的手機(jī)號(hào)碼段      1340004 卡號(hào)歸屬地      江蘇犖尬?
您查詢(xún)的手機(jī)號(hào)碼段      1340005 卡號(hào)歸屬地      江蘇犇暇?
您查詢(xún)的手機(jī)號(hào)碼段      1340006 卡號(hào)歸屬地      江蘇犇暇?
您查詢(xún)的手機(jī)號(hào)碼段      1340007 卡號(hào)歸屬地      江蘇犇暇?
您查詢(xún)的手機(jī)號(hào)碼段      1340008 卡號(hào)歸屬地      江蘇犝蚪?
您查詢(xún)的手機(jī)號(hào)碼段      1340009 卡號(hào)歸屬地      江蘇犝蚪?
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

yhyhh

知道用 search.cpan.org 卻不知道用 CPAN 命令的人才啊
zhlong8 發(fā)表于 2011-07-26 09:19

     今天才知道 “search.cpan.org” 這個(gè)網(wǎng)址的，源于看了 7樓 大俠的回復(fù)，小女子后在百度和google出來(lái)的。這是小女子編寫(xiě)的第一個(gè)perl腳本程序，參考網(wǎng)上搜索資料，根據(jù)自己的項(xiàng)目要求修改而得，雖略顯有些拿來(lái)主義，以實(shí)用為先考慮，但小女子并非好吃懶做，好逸惡勞之徒，只望大俠們能友情提點(diǎn)一下，然后自會(huì)繼續(xù)去網(wǎng)上搜索相關(guān)知識(shí)，進(jìn)而尋求解決問(wèn)題的方法。

txh_zyy

多謝大俠的建議，現(xiàn)在我是很笨拙地去"http://search.cpan.org/"里把庫(kù)文件逐個(gè)兒搜索出來(lái)，然后 ...
yhyhh 發(fā)表于 2011-07-25 22:22

   網(wǎng)上搜下吧，很多安裝方法的！cpanm也是一種，比較方便