Qsub avec Net::SSH::Perl

**Kroui** · 19/05/2011, 16h00

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 :

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

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