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

yhyhh

收入高的程序員，都不是做 Web ，都是做工具。

最值錢的“程序員”，都不是做計(jì)算機(jī)本身行業(yè)。
iakuf 發(fā)表于 2011-08-02 12:32

    那都從事神馬行業(yè)去了��？ 比如 扶凱 TX？

yhyhh

不需要這個(gè)，來測(cè)試一下

my $out = encode("utf-8",$value);

在我的 linux 上，顯示是正常的
您查詢 ...
iakuf 發(fā)表于 2011-08-02 12:30

    我測(cè)試過了，在windows機(jī)器上顯示如下：

C:\Practice\Perl>test_ipcheck_v1.pl mobilelist_v1.txt
您查詢的手機(jī)號(hào)碼段      1340001 卡號(hào)歸屬地      江蘇犖尬?
您查詢的手機(jī)號(hào)碼段      1340002 卡號(hào)歸屬地      江蘇犖尬?

****************************************************************
test_ipcheck_v3.pl
****************************************************************
#!/usr/bin/perl -w
use warnings;
use URI;
use LWP;
use Encode;
use Web::Scraper;

#ó÷¨ ip138search.pl iplist.txt
#òÔiplist.txtÎa2Îêy￡¬′«èë¸ø±äá¿$filename
my $filename=$ARGV[0];
open(FILE,$filename) || die "faile";
my $line = '0';
while($line=<FILE>){
    chomp($line);

    my $url = "http://www.ip138.com:8080/search.asp?action=mobile&mobile=$line";
    my $ua  = LWP::UserAgent->new;
    my $res = $ua->get( $url);  

    if($res->is_success) {
        my $value = $res->decoded_content;
        my $out = encode("utf-8",$value);

        my $scraper = scraper {
            process '/html/body/table[2]/*/td','comment[]' => 'TEXT';
        };  
        my $result = $scraper->scrape( $out );
        print "$result->{comment}[1]\t$result->{comment}[2]\t";
        print "$result->{comment}[3]\t$result->{comment}[4]\n";
    }   
    else {
        die $res->status_line;
    }   
}
close(FILE);

****************************************************************

x9x9

這位仁兄，依小女子之愚見，科學(xué)和藝術(shù)是可以相通的，都有著不可言喻的魅力，兩者之間并無不可 ...
yhyhh 發(fā)表于 2011-08-02 12:20

嗯，你的文字的確很有魅力，字里行間透著讓Perler 們興奮的東西~這樣會(huì)讓Perl版灰�；鸬膥
相形之下你這個(gè)問題就不重要了，除非你保證以后會(huì)經(jīng)常來這里~ ：）
我敢說如果你能發(fā)張照片出來的話，那回復(fù)的代碼也許都?jí)蚰憧吹教烀鞯膥
不就是抓取個(gè)歸屬地么，對(duì) Perl 應(yīng)該是很簡單的事兒~

yhyhh

回復(fù) 53# x9x9


     口才是照片，思想是底片，作文功底得到大俠如此肯定，已是萬分榮幸了。小女子才疏學(xué)淺，然若是以微薄之力，能促進(jìn)perl板塊于chinaunix論壇眾多門戶板塊之中異軍突起，那自然是義不容辭的事兒了。。。。
     言歸正傳，大俠請(qǐng)幫忙給點(diǎn)解題思路啊。問題還直愣愣地?cái)[在哪兒呢，這一日不解，一日不得好好休息了，唉。

iakuf

我測(cè)試過了，在windows機(jī)器上顯示如下：

C:\Practice\Perl>test_ipcheck_v1.pl mobilelist_v1 ...
yhyhh 發(fā)表于 2011-08-02 13:01

我的意思是去掉這行
my $out = encode("utf-8",$value);

iakuf

回復(fù)  x9x9


     口才是照片，思想是底片，作文功底得到大俠如此肯定，已是萬分榮幸了。小女子才疏學(xué) ...，然若是以微薄之力，能促進(jìn)perl板塊于chinaunix論壇眾多門戶板塊之中異軍突起，那自然是義不容辭的事兒了。。。。
yhyhh 發(fā)表于 2011-08-02 16:05

   
如果你一直在這板塊，一定會(huì)的。你的問題一定幫你解決，很容易的。

flw

私聊吧。加我 Q

yhyhh

如果你一直在這板塊，一定會(huì)的。你的問題一定幫你解決，很容易的。
iakuf 發(fā)表于 2011-08-02 16:30

    好，有扶凱 TX 一言，那小女子便如同吃了定心丸啦。一言為定，擊掌為盟！

yhyhh

回復(fù) 57# flw


    版主老人家看不下去了，心中念想：“此處有水軍出沒，此乃標(biāo)準(zhǔn)灌水貼也”。 越想心里越不對(duì)味，就吐了。唉。。。。  版主老人家多多保重！

txh_zyy

帖子就那么水了，哈哈