Perl 使用代理列表下载或请求页面？

我想知道是否可以通过代理列表中的代理从其服务器请求internet页面

我真的不知道所有确切的术语，所以我只想解释一下我想要什么：比如说，一个网站中有一个统计IP或类似内容（可能是cookies）的功能，比如访客柜台。我想通过使用许多代理“进入”页面来“愚弄”它。 我可以用Tor之类的东西，但那太麻烦了——我只想访问一个页面，让柜台或页面中的任何东西知道我访问了，就这样

我真的不知道要添加哪些标记，但我用Perl做了一些小实验，所以我认为这可能是一个好的方向，尽管我找不到解决问题的方法

---

提前谢谢你。

你想要这样的东西：

#/usr/bin/perl
use strict; use warnings;
use LWP::UserAgent;

my $url = shift || 'http://www.google.com';

my $a = LWP::UserAgent->new;
$a->agent('Mozilla/5.0');
$a->timeout(20);
while (<DATA>) {
  $a->proxy( ['http'], $_ );
  warn "Failed to get page with proxy $_\n"
    unless $a->get( $url )->is_success;
}

__DATA__
http://85.214.142.3:8080
http://109.230.245.167:80
http://211.222.204.1:80

#/usr/bin/perl
严格使用；使用警告；
使用LWP:：UserAgent；
我的$url=shift | |'http://www.google.com';
my$a=LWP:：UserAgent->new；
$a->agent（'Mozilla/5.0'）；
$a->超时（20）；
而（）{
$a->proxy（['http']，$)；
警告“无法使用代理获取页面$\n”
除非$a->get（$url）->成功；
}
__资料__
http://85.214.142.3:8080
http://109.230.245.167:80
http://211.222.204.1:80

代码不需要太多解释。允许指定代理服务器

---

循环浏览代理列表，获得想要的页面，就完成了。

您想要这样的内容：

#/usr/bin/perl
use strict; use warnings;
use LWP::UserAgent;

my $url = shift || 'http://www.google.com';

my $a = LWP::UserAgent->new;
$a->agent('Mozilla/5.0');
$a->timeout(20);
while (<DATA>) {
  $a->proxy( ['http'], $_ );
  warn "Failed to get page with proxy $_\n"
    unless $a->get( $url )->is_success;
}

__DATA__
http://85.214.142.3:8080
http://109.230.245.167:80
http://211.222.204.1:80

#/usr/bin/perl
严格使用；使用警告；
使用LWP:：UserAgent；
我的$url=shift | |'http://www.google.com';
my$a=LWP:：UserAgent->new；
$a->agent（'Mozilla/5.0'）；
$a->超时（20）；
而（）{
$a->proxy（['http']，$)；
警告“无法使用代理获取页面$\n”
除非$a->get（$url）->成功；
}
__资料__
http://85.214.142.3:8080
http://109.230.245.167:80
http://211.222.204.1:80

代码不需要太多解释。允许指定代理服务器

---

循环浏览代理列表，获得想要的页面，就完成了。

Perl非常适合。您需要能够读取文件（包含代理列表）并调用命令（curl可以使用代理参数）。非常感谢您的回复。不幸的是，我对所说的“curl”不太了解，所以请您进一步解释一下好吗？curl是一个小型应用程序，可以在web上传输数据。它可以为您访问页面，并使用代理。结帐。好吧，我花了最后一个小时阅读，我得出了一个悲伤的结论，我可能只是不知道如何处理它。我甚至无法在Perl上安装该模块。您还有其他建议吗？Perl非常适合。您需要能够读取文件（包含代理列表）并调用命令（curl可以使用代理参数）。非常感谢您的回复。不幸的是，我对所说的“curl”不太了解，所以请您进一步解释一下好吗？curl是一个小型应用程序，可以在web上传输数据。它可以为您访问页面，并使用代理。结帐。好吧，我花了最后一个小时阅读，我得出了一个悲伤的结论，我可能只是不知道如何处理它。我甚至无法在Perl上安装该模块。你还有别的建议吗？