Как я могу проверить, существует ли файл на удаленном сервере, использующем Perl?

Question

Как я могу проверить, существует ли файл на удаленном сервере, использующем Perl?

Можно ли это сделать при использовании модуля Perl Net::FTP?

ПРОВЕРИТЬ, ЧТОБЫ УВИДЕТЬ, ЕСЛИ ФАЙЛ СУЩЕСТВУЕТ

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

Answer 1

Вам лучше всего использовать 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";
}

Answer 2

Вы можете использовать команду, такую ​​как:

use Net::FTP;
$ftp->new(url);
$ftp->login(usr,pass);

$directoryToCheck = "foo";

unless ($ftp->cwd($directoryToCheck))
{
   print "Directory doesn't exist
}

Answer 3

Войдите на FTP-сервер и посмотрите, сможете ли вы получить FTP SIZE для файла, который вам нужен:

#!/usr/bin/env perl

use strict;
use warnings;

use Net::FTP;
use URI;

# ftp_file_exists('ftp://host/path')
#
# Return true if FTP URI points to an accessible, plain file.
# (May die on error, return false on inaccessible files, doesn't handle
# directories, and has hardcoded credentials.)
#
sub ftp_file_exists {
    my $uri = URI->new(shift); # Parse ftp:// into URI object

    my $ftp = Net::FTP->new($uri->host) or die "Connection error($uri): $@";
    $ftp->login('anonymous', 'anon@ftp.invalid') or die "Login error", $ftp->message;
    my $exists = defined $ftp->size($uri->path);
    $ftp->quit;

    return $exists;
}

for my $uri (@ARGV) {
    print "$uri: ", (ftp_file_exists($uri) ? "yes" : "no"), "\n";
}

Answer 4

Если файл находится в пространстве FTP на удаленном сервере, используйте Net :: FTP. Получите список каталогов ls и посмотрите, есть ли там ваш файл.

Но вы не можете просто пойти и посмотреть, есть ли какой-нибудь произвольный файл на сервере. Подумайте, что это за проблема с безопасностью.

Answer 5

Вы можете использовать ожидаемый сценарий для той же цели (не требует дополнительных модулей).Ожидаемый объект выполнит «ls -l» на FTP-сервере, а скрипт perl проанализирует вывод и решит, существует ли файл.Его действительно просто реализовать.

Вот код,

PERL скрипт: (main.pl)

# ftpLog variable stores output of the expect script which logs in to FTP server and runs "ls -l" command
$fileName = "myFile.txt";
$ftpLog = `/usr/local/bin/expect /path/to/expect_script/ftp_chk.exp $ftpIP $ftpUser $ftpPass $ftpPath`;

# verify that file exists on FTP server by looking for filename in "ls -l" output
if(index($ftpLog,$fileName) > -1)
{
    print "File exists!";
}
else
{
    print "File does not exist.";
}

EXPECT скрипт: (ftp_chk.exp)

#!/usr/bin/expect -f

set force_conservative 0;
set timeout 30
set ftpIP [lindex $argv 0]
set ftpUser [lindex $argv 1]
set ftpPass [lindex $argv 2]
set ftpPath [lindex $argv 3]

spawn ftp $ftpIP

expect "Name ("
send "$ftpUser\r"

sleep 2

expect {
"assword:" {
    send "$ftpPass\r"
    sleep 2

    expect "ftp>"
    send "cd $ftpPath\r\n"
    sleep 2

    expect "ftp>"
    send "ls -l\r\n"
    sleep 2

    exit
    }
"yes/no)?" {
    send "yes\r"
    sleep 2
    exp_continue
    }
timeout {
    puts "\nError: ftp timed out.\n"
    exit
    }
}

Я использовал эту настройку в одном из моих инструментов, и я могу гарантировать, что она работает отлично:)