如何使用Perl检查远程服务器上是否存在文件？

如何使用Perl检查远程服务器上是否存在文件？

我可以在使用Perl模块Net :: FTP时执行此操作吗？

检查是否存在文件

if (-e $file_check) {  
    print "File Exists!\n";  
}   
else {  
    print "File Doesn't Exist!\n";  
}

解决方法

使用SSH执行此操作可能是最好的服务：

#!/usr/bin/perl

use strict;
use warnings;

my $ssh  = "/usr/bin/ssh";
my $host = "localhost";
my $test = "/usr/bin/test";
my $file = shift;

system $ssh,$host,$test,"-e",$file;
my $rc = $? >> 8;
if ($rc) {
    print "file $file doesn't exist on $host\n";
} else {
    print "file $file exists on $host\n";
}