Perl LWP不起作用

Question

我在Windows 7 Pro上使用Padre作为我的IDE和Strawberry Perl。

我正在尝试创建一个perl脚本，该脚本转到网站上的文本文件，然后读取/复制文本文件。

但即使是最简单的LWP命令，我也无法让LWP工作。

#!/usr/bin/perl
   use strict;
   use warnings;
   use LWP::Simple;

   getprint('http://www.perlmeme.org') or die 'Unable to get page';

   exit 0;

我不断收到此错误消息： 500无法连接到proxy.sn.no:8001（错误的主机名） 例如500无法连接到（错误的主机名）http://www.perlmeme.org

我一直在谷歌搜索，使用Microsoft Fixit重置端口等，但我仍然无法使其工作。 HTTP // www.justskins.com /论坛/ LWP-连接-失败-坏119421.html

任何人都可以帮助我吗？被困了好几个小时:(

编辑：

- 1 foreach my $ key（keys％ENV）{print“$ key：$ ENV {$ key} \ n”if if key = ~m / proxy / i; }

是的，打印出FTP_PROXY和HTTP_PROXY后面都是：http://proxy.sn.no:8001/

这是我从这个帮助线程How do I install a module? Strawberry Perl issues

获得的代理

我有代理问题，然后我尝试了该线程的配置，然后代理问题仍然存在。

- 2我不希望在我的结尾或任何事情上使用任何代理。只是想将perl脚本连接到网站以检索文本文档。

- 3 ping有0％的损失。 （我只能在这篇文章中发布两个超链接）

- 4我正在使用Windows。

Answer 1

LWP将尊重http_proxy环境变量并尝试将其用作HTTP代理。请查看Unix上的env | grep http_proxy。