Discussion :

[gdev7]

Bonjour,

Je voudrais faire un petit script en PERL, mais je suis débutant.

Pour chaque fichier qui se trouve dans mon répertoire FAIRE
Une connexion SFTP avec en paramètre un host, un user et password
Vérifier l'existence d'un répertoire distant
Si dossier non existant, le créer
Mettre le fichier récupéré en local dans ce répertoire distant
Si transfert non réussi, le placer dans un autre répertoire en local
Fermer connexion SFTP
Fin

Pour l'instant j'ai ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
#localdir, tmpdir sont des répertoires
 
my %args = (
user => user,
password => passwd,
debug => 'true',
);
 
foreach $file ($localdir) 
{
	# Make connection
	my $sftp = Net::SFTP->new(host, %args);
 
	# test if tmp dir already exist
	$sftp->do_opendir($tmpdir);
	if ( undef ) {
		$sftp->do_mkdir($tmpdir);	
	}
 
	$sftp->put($file, $tmpdir)
	if (undef ) {
		# mettre dans répertoire local
	}
 
}

Alors je ne sais pas comment marche les retours de fonction (undef?) pour savoir si cela a marché ou pas. Sinon pouvez vous m'aidez pour gérer ce script... merci d'avance.

[knarf87]

Pour les retours de fonctions tu devrais directement les tester dans le if :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
if($sftp->do_opendir($tmpdir))
{
  #doStuff
}

mais il me semble que quoi qu'il arrive le retour d'une fonction est stocké dans la variable $_ et donc que ton if teste cette meme variable. Je pense donc que le code que je t'ai présenté doit être équivalent au tien.
Question stupide : je ne vois pas de teste pour savoir si la connexion est bien ouverte, es-tu sûr quelle le soit?
Voili Voilou
FX