Comment puis-je vérifier si un fichier existe sur un serveur distant à l'aide de Perl?

Comment puis-je vérifier si un fichier existe sur un serveur distant à l'aide de Perl?

Puis-je faire cela tout en utilisant le module Perl Net::FTP?

VÉRIFIER POUR VOIR SI LE FICHIER EXISTE

if (-e $file_check) {  
    print "File Exists!\n";  
}   
else {  
    print "File Doesn't Exist!\n";  
}
InformationsquelleAutor Luke | 2010-06-28
  1. 6

    Vous pourriez être mieux servis par l'utilisation de SSH pour ce faire:

    #!/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";
}
    • mais que faire, si ses un serveur distant qui est protégé par mot de passe?
    • C'est ce que les clés ssh sont pour.
    • Ouais, je l'ai eu. Mais il n'existe aucune solution de contournement dans le script, si le serveur distant est protégé par mot de passe?
    • Oui, vous pouvez essayer d'utiliser Net::SSH::Attendez-vous, mais de cette façon la folie réside. Tout configuré correctement les machines acceptent les clés et ils sont beaucoup plus sécurisé.
    • Merci pour vos réponses. Viens curieux, les mots de passe peuvent donné à l'aide de la commande du système lui-même sans l'aide de n'importe quel module.. 😉
    • Le ssh programme en ligne de commande est conçu pour ne pas permettre que (en raison de problèmes de sécurité).

    InformationsquelleAutor Chas. Owens
  2. 4

    Vous pouvez utiliser une commande telle que:

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

$directoryToCheck = "foo";

unless ($ftp->cwd($directoryToCheck))
{
   print "Directory doesn't exist
}
    InformationsquelleAutor claydiffrient
  3. 1

    Si le fichier est dans l'espace FTP sur le serveur distant, puis use Net::FTP. Obtenir un ls liste du répertoire et de voir si votre fichier est là.

    Mais vous ne pouvez pas simplement aller et de voir si n'importe quel fichier sur le serveur. Pensez à ce que un problème de sécurité qui serait.

    InformationsquelleAutor Andy Lester
  4. 1

    Connecter au serveur FTP, et de voir si vous pouvez obtenir un FTP SIZE sur le fichier dont vous vous souciez:

    #!/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', '[email protected]') 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";
}
    • Ce travail sur une taille nulle fichiers?
    • merci et "non", mais le code révisé.
    InformationsquelleAutor pilcrow
  5. 0

    Vous pouvez utiliser un script expect pour le même but (nécessite pas de modules supplémentaires). Le fait de s'attendre va exécuter la commande "ls-l" sur le serveur FTP et le script perl qui va analyser la sortie et de décider si le fichier existe. C'est vraiment simple à mettre en œuvre.

    Voici le code,

    Script 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.";
}

    Script 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
    }
}

    J'ai utilisé cette configuration dans un de mes outils et je peux vous garantir que cela fonctionne parfaitement 🙂

    InformationsquelleAutor Jenson Jose