Mojo::UserAgent模块做的一个快速爬虫项目

use Mojo::UserAgent;

my $ua = Mojo::UserAgent->new;
my $proxy = 'duoip:8000';

# 使用爬虫IP
$ua->proxy('http', $proxy)  # 设置http爬虫IP
    ->proxy('https', $proxy); # 设置https爬虫IP

my $res = $ua->get('音乐网址');
if ($res->is_success) {
    print $res->body;
} else {
    print "Failed to download video, error message: ", $res->message, "\n";
}

解释:

1、导入Mojo::UserAgent模块，这个模块提供了创建和使用HTTP客户端的功能。

2、创建一个Mojo::UserAgent对象。

3、设置爬虫IP，使用proxy方法设置爬虫IP服务器的地址和端口。

4、使用get方法获取指定网页的HTML内容。

5、判断HTTP请求是否成功，成功则打印响应体，否则打印错误信息。