为什么 Perl 的 LWP::Simple 附带的 head 命令仅在我在命令行上调用它时才起作用？

Question

我有一个简单的 Perl 子例程，用于检查 google 是否仍在托管 jquery 1.6 的副本，然后决定是否打印链接到它或本地托管副本的脚本。

这是我正在使用的代码的副本。

my $jquery_host = "http://ajax.googleapis.com/ajax/libs/jquery/1.6.2/jquery.min.js";
my $header = LWP::Simple::head($jquery_host);

if(defined $header) {
    return qq{<script type="text/javascript" src="$jquery_host"></script>};
}
else {
    return qq{<script type="text/javascript" src="$localPath"></script>};
}

当我在此命令行上运行此代码时，检索响应没有问题，并且它正确打印出链接到 google 的 jquery 副本的脚本标记。然而，当我实际从构建 html 页面的 perl 脚本调用它时，它每次都找不到任何内容，并打印出链接到我们自己的副本的脚本标记。

哪些权限或其他类型的障碍可能会停止此连接？

感谢您的帮助。

注意：到目前为止，这仅在我们的本地测试服务器上运行。命令行也在测试服务器上运行。

Answer 1

我可以确认您的代码可以单独运行。尝试将对 header 的赋值包装到 if 语句中；事实上也内联了 url 字符串。唯一可能困扰您的事情是您的服务器脚本正在使用某些代理或 tcp 包装器的计算机上运行，​​而这些代理或 TCP 包装器不允许您从 google.com 获取 jQuery。我们无法真正帮助您解决这些非常具体的本地问题。

如果我只是猜测，我会说你有多个 Perl 环境正在运行，并且你的命令行正在使用一个很好的版本，可以正常工作，但你的 Web 服务器正在调用另一个版本，一个可能有已以破坏您正在做的事情的方式进行了强化，例如在 AppEngine 中使用所提议的内容。但我上面的建议是基于以下想法：此代码段周围的代码可能会干扰您正在使用的变量。似乎这种这种问题确实出现在使用mod_perl 中的 io 套接字。

程序片段：

$ perl -MLWP::Simple -e '
if(head("http://ajax.googleapis.com/ajax/libs/jquery/1.6.2/jquery.min.js")) {
    print qq{<script type="text/javascript"
      src="http://ajax.googleapis.com/ajax/libs/jquery/1.6.2/jquery.min.js">
    </script>};
} else {
    print qq{<script type="text/javascript" src="$localPath"></script>};
}'

输出：

<script type="text/javascript"
  src="http://ajax.googleapis.com/ajax/libs/jquery/1.6.2/jquery.min.js">
</script>

我也会这样写，以便将一些 $scriptPath 分配给 jQuery 路径或 $localPath，然后通过 if 语句 I' d 使用现在确定的 $scriptPath 仅打印一次脚本标记。但这也许只是我。

Answer 2

我不知道为什么您的代码不起作用，但您无论如何都不应该使用它：仅仅因为您的服务器可以访问 ajax.googleapis.com 并不意味着用户的浏览器可以。

只需在客户端上使用 JavaScript 进行回退即可。以下是一些基于 这个答案：

return <<"END";
<script type="text/javascript" src="$jquery_host"></script>
<script type="text/javascript">
if (typeof jQuery == 'undefined') document.write(
    '<'+'script type="text/javascript" src="$localPath"><'+'/script>'
);
</script>
END