Perl 使用指定的 User-Agent 抓取网页

概述Perl 使用指定的 User-Agent 抓取网页

下面是内存溢出 jb51.cc 通过网络收集整理的代码片段。

内存溢出小编现在分享给大家，也给大家做个参考。

#!/usr/bin/perl -wuse LWP;use strict;my $browser = LWP::UserAgent->new(agent => 'Perly v1');my $result = $browser->get("http://www.braingia.org/ewfojwefoj");dIE "An error occurred: ",$result->status_line() unless $result->is_success;print $result->content;

以上是内存溢出(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。

总结

以上是内存溢出为你收集整理的Perl 使用指定的 User-Agent 抓取网页全部内容，希望文章能够帮你解决Perl 使用指定的 User-Agent 抓取网页所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。