使用Perl从网页抓取数据

本示例代码演示如何使用Perl语言从网页中抓取数据，实现方式是通过HTTP请求获取网页内容，并使用正则表达式进行筛选和抓取。

#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;

my $url = 'https://github.com/';
my $ua = LWP::UserAgent->new;
my $response = $ua->get($url);

if ($response->is_success) {
    my $content = $response->decoded_content;

    # 使用正则表达式匹配所有的超链接
    my @links = $content =~ m/<a.*?href="(.*?)".*?>/g;

    for my $link (@links) {
        print "$link\n";
    }
}
else {
     # HTTP请求失败
    print "请求失败: " . $response->status_line . "\n";
}

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com