Perl：測試遠程文件是否存在http

Question

大家好！

我需要測試一個http服務器上的遠程文件是否存在，而不下載它。我研究了像wget，curl，axel等各種命令行程序，但找不到測試專用標誌。

我在一個生產環境中工作，只對我可以使用的模塊有限制。放眼望去，在LWP ::簡單 - >頭（）函數似乎合適的，但返回undef想它的時候：

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

    my $url = 
'http://hgdownload.cse.ucsc.edu/goldenPath/hg18/encodeDCC/wgEncodeUwChIPSeq/wgEncodeUwChIPSeqAlignmentsBjInput.tagAlign.gz'; 

my $head = LWP::Simple->head($url); 
#my $head = head($url); 

print "$head\n"; 

任何指針不勝感激！

謝謝， 托馬斯

Answer 1

head是導出的函數，而不是一個類的方法。你正在調用它是錯誤的。

use LWP::Simple qw(head); 

my $url = … 
if (head($url)) { 
    # sucess 
} else { 
    # no success 
} 

# alternatively skip the import, supply fully qualified function name: 
# use LWP::Simple qw(); 
# if (LWP::Simple::head($url)) …