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请求是否成功，成功则打印响应体，否则打印错误信息。