perl如何自动获取网页上的信息

小编给大家分享一下perl如何自动获取网页上的信息，希望大家阅读完这篇文章之后都有所收获，下面让我们一起去探讨吧！

perl获取网页上的信息

perl自动上网，然后获取网页上的信息：

#!/usr/bin/perl -w# Perl pragma to restrict unsafe constructsuse strict;# use LWP::UserAgent modeluse LWP::UserAgent; # main functionsub main {    # get params    # @_      # Within a subroutine the array @_ contains the parameters passed to that subroutine.     # Inside a subroutine, @_ is the default array for the array operators push, pop, shift, and unshift.    my $url = 'http://www.taobao.com';    die "no url param!\n" unless $url;     # create LWP::UserAgent object    my $ua = LWP::UserAgent->new;    # set connect timeout     $ua->timeout(20);    # set User-Agent header    $ua->agent("Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; SV1; .NET CLR 2.0.50727)");    # send url use get mothed, and store response at var $resp    my $resp = $ua->get($url);     # check response    if ($resp->is_success) {        # get response content(html source code)        my $content = $resp->decoded_content;        # use Regex get page title from $content        if ( $content =~ m{}si ) {            #  (.+?) match title string, use () to store this str at a special variable $1 (this is a perl variable ),            # The bracketing construct ( ... ) creates capture groups (also referred to as capture buffers). To refer to the current contents of a group later on, within the same pattern, use $1 for the first,$2 for the second, and so on.            my $head = $1;            print "find page title : $head\n";        } else {            print "no page title for url : $url\n";        }    } else {#display status information and exit        die $resp->status_line;    }} # pass params to main function,# @ARGV# The array @ARGV contains the command-line arguments intended for the script. main(@ARGV);

看完了这篇文章，相信你对"perl如何自动获取网页上的信息"有了一定的了解，如果想了解更多相关知识，欢迎关注行业资讯频道，感谢各位的阅读！