Perl 如何使用$mech->；设置代理服务器凭据；代理

我正在制作一个scraper脚本。为了避免我的脚本被阻止，我使用了一个代理服务，它给了我用户名和密码（我以前没有做过）。 如何在我的代码中实现这一点是一个问题。 我在做什么

my$proxy='64.120.237.206:8080'

$mech->proxy（'http'，“http://$proxy”）

我的问题是如何以及在何处设置代理服务提供商提供的用户名和密码

请帮助

您想查看该类，它是WWW:：Mechanize的基类。它将解释您可以为代理用户名和密码设置环境变量

此外，该页面还有一节解释如何将用户名和密码设置为proxy（）命令的一部分。但我不建议这样做，因为在源代码中输入密码通常是个坏主意

---

2012-12-02：

---

创建一个代理URL/端口对数组，使用随机数生成器选择一个。

我假设您使用WWW:：Mechanize，来自“$mech”变量名？谢谢Jaffe，我将研究它，并让您知道它是如何出现的，我正在做$mech->proxy（'http'，'）$机械->凭证（'usrname'，'pwd'）；脚本没有停止。这是否意味着它的工作超出了我的想象，我认为credentials（）方法是用于对web服务器的HTTP身份验证，而不是代理服务器。我发现确定程序正在做什么的最佳方法是使用调试器。为HTTP获取（get/post）设置断点，然后查看对象的各个位，如状态和内容。如果你对它有兴趣，你可以通过在$mech对象的生命周期中的不同点转储$mech对象来了解LWP的工作原理。感谢Len的洞察…但我已经使用了调试器（我承认我讨厌使用它）。