Perl 爬取内容失败 - V2EX
akagi
V2EX    Perl

Perl 爬取内容失败

  •  
  •   akagi Jul 1, 2014 11129 views
    This topic created in 4334 days ago, the information mentioned may be changed or developed.
    使用的是 Mojo::UserAgent, 用来爬取某网站的用户回答列表,但是爬取时会随机在某网页停止,显示

    "Can't call method "all_text" on an undefined value at core.pl line 188."

    实现如下,

    sub get_keyword_list {
    my ($ua, @list, $keyword) = @_;

    foreach my $l (@list) {
    my $tx = $ua->get($l->[0]);
    say $l->[0];
    # what should it be?
    my $answer = $tx->res->dom->at('div.zm-editable-content.clearfix')->all_text;
    my $timestamp = $tx->res->dom->at('a.answer-date-link.meta-item')->text;
    open my ($tmp), '>>', 'tmp.txt' or die;
    say $tmp $answer;
    say $tmp $timestamp;
    }
    }

    其中 $l->[0] 取到列表中各网页 url, 类似如下形式: http://www.zhihu.com/question/20304733/answer/25775012

    为什么会出现错误,无法理解ing, 求解。
    8 replies    2014-07-01 11:23:31 +08:00
    forbe
        1
    forbe  
       Jul 1, 2014
    用 Go吧,http://meijia0.com就是我最近用GO写的一个小爬虫,很简单很方便
    11138
        2
    11138  
       Jul 1, 2014   1
    先判断一下“get”成功了再往下操作。
    table cellpadding="0" cellspacing="0" border="0" width="100%"> orzfly
        3
    orzfly  
       Jul 1, 2014
    用来爬取某网站
    类似如下形式: http://www.zhihu.com
    akagi
        4
    akagi  
    OP
       Jul 1, 2014
    @11138 出错的原因是什么呢?
    11138
        5
    11138  
       Jul 1, 2014
    my $tx = $ua->get($l->[0]);

    这里,由于各种网络原因,“get”的结果可能是失败的,所以你要判断一下啊。

    http://search.cpan.org/~sri/Mojolicious-5.10/lib/Mojo/UserAgent.pm

    if (my $res = $tx->success) { say $res->body }
    else {
    my $err = $tx->error;
    die "$err->{code} response: $err->{message}" if $err->{code};
    die "Connection error: $err->{message}";
    }
    akagi
        6
    akagi  
    OP
       Jul 1, 2014
    @11138 恩,我表述的不大清楚。之前你的回复我看明白了,只是还没搞懂get失败的可能原因。如果单次get可以成功,多条情况可能失败,这里的“各种网络原因”,具体可能有哪些,希望能稍微展开下 :)
    11138
        7
    11138  
       Jul 1, 2014
    如果获取失败你可以将错误的信息打印出来看看啊,参考上面的代码。
    akagi
        8
    akagi  
    OP
       Jul 1, 2014
    @11138 嗯,谢谢。
    About     Help     Advertise     Blog     API     FAQ     Solana     3746 Online   Highest 6679       Select Language
    创意工作者们的社区
    World is powered by solitude
    VERSION: 3.9.8.5 33ms UTC 04:31 PVG 12:31 LAX 21:31 JFK 00:31
    Do have faith in what you're doing.
    ubao msn snddm index pchome yahoo rakuten mypaper meadowduck bidyahoo youbao zxmzxm asda bnvcg cvbfg dfscv mmhjk xxddc yybgb zznbn ccubao uaitu acv GXCV ET GDG YH FG BCVB FJFH CBRE CBC GDG ET54 WRWR RWER WREW WRWER RWER SDG EW SF DSFSF fbbs ubao fhd dfg ewr dg df ewwr ewwr et ruyut utut dfg fgd gdfgt etg dfgt dfgd ert4 gd fgg wr 235 wer3 we vsdf sdf gdf ert xcv sdf rwer hfd dfg cvb rwf afb dfh jgh bmn lgh rty gfds cxv xcv xcs vdas fdf fgd cv sdf tert sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf shasha9178 shasha9178 shasha9178 shasha9178 shasha9178 liflif2 liflif2 liflif2 liflif2 liflif2 liblib3 liblib3 liblib3 liblib3 liblib3 zhazha444 zhazha444 zhazha444 zhazha444 zhazha444 dende5 dende denden denden2 denden21 fenfen9 fenf619 fen619 fenfe9 fe619 sdf sdf sdf sdf sdf zhazh90 zhazh0 zhaa50 zha90 zh590 zho zhoz zhozh zhozho zhozho2 lislis lls95 lili95 lils5 liss9 sdf0ty987 sdft876 sdft9876 sdf09876 sd0t9876 sdf0ty98 sdf0976 sdf0ty986 sdf0ty96 sdf0t76 sdf0876 df0ty98 sf0t876 sd0ty76 sdy76 sdf76 sdf0t76 sdf0ty9 sdf0ty98 sdf0ty987 sdf0ty98 sdf6676 sdf876 sd876 sd876 sdf6 sdf6 sdf9876 sdf0t sdf06 sdf0ty9776 sdf0ty9776 sdf0ty76 sdf8876 sdf0t sd6 sdf06 s688876 sd688 sdf86