[PERL] File Handler et command system Fermé

Question

Bonjour,

Je souhaiterai utiliser des commandes systèmes avec PERL. J'utilise le descripteur de fichier de la facon suivante:
open(FH,"ssh user@serveur_distant |");

donc je lance un ssh en processus démon... 

je voudrai par la suite:
1/  lancer des commandes sur le serveur serveur_distant
2/ récupérer les résultat de mon traitement et me déconnecter du serveur serveur_distant

lorsque je fais par ex:

#!/usr/bin/perl

if (open(FH,"ssh user@serveur_distant |")){
     $command=`ls -lrt >toto.txt`;
}
close(FH);

le résultat de toto.txt est le "ls -lrt" de mon serveur local... alors que j'aurais voulu le résultat de mon "serveur_distant"...

comment rester sur le flux ssh ouvert et faire un traitement dessus?

Merci d'avance pour vos suggestions.

dubcek · Answer

en écrivant sur FH
print FH "ls -lrt >toto.txt"

lami20j · Answer

Salut,

pourquoi pas, tout simplementlami20j@deb:~/trash$ ls res.txt
ls: res.txt: Aucun fichier ou répertoire de ce type
lami20j@deb:~/trash$ perl -e 'system("ssh lami\@10.0.0.2 ls -l > res.txt")'
lami@10.0.0.2's password:
lami20j@deb:~/trash$ ls -l res.txt
-rw-r--r-- 1 lami20j lami20j 5558 2007-09-18 23:28 res.txt

[PERL] File Handler et command system

2 réponses

Discussions similaires