爲什麼Perl的LWP :: Simple自帶的head命令只能在命令行中調用它時才起作用？

Question

我有一個簡單的perl子例程，用於檢查是否仍在託管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>}; 
} 

當我運行此命令行的代碼，我沒有問題，檢索的響應，並適當地打印出腳本標籤鏈接到jQuery的谷歌的副本。但是，當我從構建html頁面的perl腳本實際調用它時，它每次都找不到任何內容，並打印出鏈接到我們自己副本的腳本標記。

什麼權限或其他類型的障礙可能會暫停此連接？

感謝您的幫助。

注意：這隻能在我們的本地測試服務器上運行到目前爲止。命令行也在測試服務器上運行。

Answer 1

我可以確認你的代碼是獨立工作的。嘗試將分配包裝到if語句中;實際上也是內聯url字符串。唯一可能與你搞混的另一件事是你的服務器腳本運行在使用一些代理或tcp封裝的機器上，而這些代理或tcp封裝並不允許你從google.com獲取jQuery。我們無法真正幫助您解決這些非常具體的當地問題。

如果我只是在猜測，我會說你有多個Perl環境正在進行，而且你的命令行使用了一個很好的版本，但是你的web服務器正在調用另一個版本，一個可能會以破壞你正在做的事情的方式硬化，比如爲use in AppEngine提出的建議。但是我上面的建議是基於這樣的想法，即圍繞此代碼段的代碼可能會混淆正在使用的變量。看起來這kind of issue雖然圍繞使用io sockets in mod_perl確實出現。

節目片段：

$ 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語句我只使用現在確定的$scriptPath打印腳本標記一次。但這也許只是我。

Answer 2

我不知道爲什麼你的代碼不工作，但你不應該使用它：只是因爲你的服務器可以達到ajax.googleapis.com並不意味着用戶的瀏覽器可以。

只需在客戶端上使用JavaScript進行回退即可。下面是基於this answer一些示例代碼：

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