Discussion :

[loic1990]

Bonjour,

j'essaie d'utiliser le module sftp:: recursive pour recupérer un dossier contenant des sous répertoires et des fichiers sur un serveur distant. Voici mon code :

Code :

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

1
2
3
4
$dir= "/dwh/tmp/decrypt_20130619/pretupsvar/billFiles/";
	my %cfg = (user=>$username, password=>$password);
	my $sftp = Net::SFTP::Recursive->new($ipBetsiboka,%cfg);
	 #$sftp->rget($dir,$localDirectory);

cependant j'ai l'erreur suivante : Deep recursion on subroutine
pourriez vous me dire ou se trouve le problème svp?

[Lolo78]

Le message "deep recursion" n'est pas une erreur, mais seulement un warning. Cela veut dire que l'on atteint un niveau de récursion supérieur ou égal à 100, autrement dit, il y a sans doute dans ton module une fonction qui s'appelle elle-même plus de 100 fois pour explorer une arborescence de fichier. Ce n'est peut-être pas très grave si c'est un module correctement testé. Au pire, si le programme entre dans une récursion infinie, ça plantera quand le programme n'aura plus assez de mémoire. A tout hasard, fais le test quand il n'y a rien d'autre d'important qui tourne sur ta bécane, mais normalement, dans ce cas, c'est perl et son programme qui planteront, sans planter le système.

[loic1990]

merci pour ta réponse lolo78, je viens de refaire le teste en désactivant tous les autres processus "encombrants". Le programme finit par planter avec ce message Couldn't get handle: Bad message at supervision.pl line 755 (ligne correspondant au rget de sftp::recursive) avec une boucle infinie sur ce message. Je précise qu'il commence a télécharger le répertoire parent mais n'arrive pas a télécharger les sous-répertoires ni les fichiers de ceux-ci. Peu-être, une erreur dans mon code? Peux-tu me proposer un exemple de code stp?

[loic1990]

Bonjour,
après plus d'une semaine de recherche, je n'ai toujours pas de solution. il semblerait que plusieurs personnes aient rencontré le même problème avec la méthode rget de sftp::recursive, toujours pas de solution?(la méthode rput fonctionnant parfaitement). Peut-être un problème de test du module? Quelqu'un connait-il un module qui permet de transférer de manière sécuriser de "gros" dossiers entre 2 serveurs?

[djibril]

En regardant ce module, je m'aperçoit que ce bogue a été signalé sur le CPAN depuis 2007 sans réponse.
Je suggère donc ne pas l'utiliser .

Je te propose d'utiliser Net::FTP et de gérer toi même la récursion.

[djibril]

As-tu essayé Net::FTP::Recursive ?

[loic1990]

En effet, j'ai utilisé dans un premier temps le module FTP::Recursive. Et mon code fonctionnait sans aucun soucis. Cependant mon encadreur m'a demandé de passer à un module plus sécurisé car les données manipulées sont sensibles, c'est pourquoi je me suis tourné vers le module SFTP::Recursive. Y'a t-il moyen avec un module comme NET::SFTP de télécharger des dossiers entiers (qui ont des sous-aborescences?.

[djibril]

Pourquoi ne pas faire du rsync ? Tu seras peinard, c'est rapide et sécurisé.
Tu peux lancer une commande rsync dans ton programme Perl.

[loic1990]

Bonsoir,
Merci Djibrill pour ta réponse. Cependant, je n'ai pas eu l'occasion de la tester. L'admin système n'a pas encore rajouter la commande au serveur. Nous avons contourner le problème pour le moment en passant le serveur dans un firewall. J'attends toujours une validation de la DMI pour le rajout de la command Rsync . Je vous tiens informé

[cmcmc]

S'il s'agit bien du module Net::SFTP::Recursive, la correction apportée par Lee (https://rt.cpan.org/Ticket/Attachmen...3/Recursive.pm) semble valide. Tu peux la tester en l'archivant quelque part mais en respectant l'arborescence Net::SFTP::Recursive => Net/SFTP/Recursive.pm, par exemple ./FOO/Net/SFTP/Recursive.pm (où . est le répertoire où réside ton script principal) et en invoquant perl comme suit :

Code :

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

perl -I ./FOO monbeauscript.pl sesarguments...

Pour mémoire, lorsque perl rencontre l'instruction

Code :

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

use Net::SFTP::Recursive ...;

il va rechercher un fichier Net/SFTP/Recursive.pm à partir de chacune des entrées dans @INC, en s'arrêtant dès qu'il en a trouvé un; -I ./FOO fait passer ./FOO en tête de @INC, ce qui signifie que ce répertoire sera recherché avant les autres (notamment la version récupérée de CPAN), ce qui est le but recherché ici.

On peut évidemment utiliser un path absolu pour ce répertoire.

-----------

Ceci dit, je te conseillerai, pour des raisons d'efficacité et de sécurité, d'utiliser Net::SFTP::Foreign (qui dispose des commandes rput et rget) plutôt que Net::SFTP et Net::SFTP::Recursive. C'est un poil plus délicat à déployer mais mieux supporté ( ) et beaucoup, beaucoup, beaucoup plus rapide, surtout pour le transfert d'arborescences complètes.