Discussion :

[chercheur3]

Bonjour ,

Comment éviter une sortie du programme quand il erreur ?

Par exemple je fais:
my $cmd="ls .";
my $ssh = Net::SSH:erl->new($host,protocol=>2);
$ssh->login($username,$passwd);
$ssh->cmd($download);

cette cmd echoue (<< Read from socket failed: Noeud final de transport n'est pas connecté.... >>)et le programme s'arrête.

J'aimerais continuer avec l'itération suivante.

Merci beaucoup.

[Arioch]

Bonjour.

Le exit est provoqué à priori par le package Net::SSH:: perl. A moins de vouloir bidouiller dedans pour que ça ne te donne qu'un warning pour ce genre d'erreur au lieu d'un die (je suppose), je vois pas d'autres solutions.

A moins de faire un script perl à part qui ne fait qu'appeler celui-ci en lui fournissant à chaque fois de nouveaux paramètres pour qu'il puisse bosser.

Mais dans ce cas, il te faudra un système pour récupérer l'erreur retournée par ton script.

Hum, bon désolé, l'est 14h30, chuis pas clair et j'ai encore rien bu



PS : et sinon, essaie d'encapsuler ton code qui fait appel au package dans un eval pour voir ? Avec un peu de chance, l'eval empêchera ton script de s'arrêter.

[Arioch]

Exemple d'eval avec ton code :

Code :

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

1
2
3
4
5
6
7
8
9
 
my $cmd="ls .";
 
eval {
    my $ssh = Net::SSH::perl->new($host,protocol=>2);
    $ssh->login($username,$passwd);
    $ssh->cmd($download);
};
warn "oups, eval retourne une erreur : $@\n" if ($@);

[chercheur3]

J'ai utilisé la dernièrre instruction (le bloc eval); et ça marche !!!

Merci assez!!

[djibril]

merci de mettre ce message sous le tag résolu