Qsub avec Net::SSH::Perl

Bonjour à tous,

je suis entrain de développer une interface graphique et je souhaiterais lancer l'interface en local, et en fonction de certaines options, il faudrait pouvoir lancer un qsub sur un cluster.

J'essaie d'utiliser le module Net::SSH:: Perl et voici le modèle du code que j'utilise :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

print "==> Connexion SSH en cours ...\n"; my $host = "cluster"; my $username = "toto"; my $password = "******";   my $ssh = Net::SSH::Perl->new($host); print "==> Connexion effectuee, Identification en cours ...\n"; $ssh->login($username, $password);     $ssh->cmd(system("./qsub.sh"));

---

Et qsub.sh contient des exécutions de scripts shell avec la commande QSUB

La connexion fonctionne très bien. Mais je reçois des messages d'erreur qsub: command not found, comme si j'essayais de lancer qsub en local...

Soit on ne peut lancer de qsub avec cette méthode, soit je fais mal qqch.

Merci par avance pour vos réponses

Tu ne dois pas le lancer au bon endroit.

Code:

---

$ssh->cmd("./qsub.sh");

---

La commande est celle lancée sur le serveur sur lequel tu te connectes.

Super, cela fonctionne, merci