perl – 如何制作WWW：机械化以不两次获取页面？

发布时间：2020-12-16 06:08:55 所属栏目：大数据来源：网络整理

导读：我有一个用OO Perl编写的网络抓取应用程序.应用程序中使用了单个 WWW::Mechanize对象.如何使其不能两次获取相同的URL,即使用相同的URL no-op创建第二个get()： my $mech = WWW::Mechanize-new();my $url = 'http:://google.com';$mech-get( $url ); # first

我有一个用OO Perl编写的网络抓取应用程序.应用程序中使用了单个 WWW::Mechanize对象.如何使其不能两次获取相同的URL,即使用相同的URL no-op创建第二个get()：

my $mech = WWW::Mechanize->new();
my $url = 'http:://google.com';

$mech->get( $url ); # first time,fetch
$mech->get( $url ); # same url,do nothing

解决方法

您可以继承WWW :: Mechanize并重新定义get()方法以执行您想要的操作：

package MyMech;
use base 'WWW::Mechanize';

sub get {
    my $self = shift;
    my($url) = @_;

    if (defined $self->res && $self->res->request->uri ne $url) {
        return $self->SUPER::get(@_)
    }
    return $self->res;
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!