[PERL]-Exécuter une commande interactive

Résolu/Fermé
blux Messages postés 26010 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 26 avril 2024 - 19 oct. 2006 à 10:45
blux Messages postés 26010 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 26 avril 2024 - 19 oct. 2006 à 11:35
Bonjour,

je souhaite exécuter en PERL la commande shell suivante et récupérer le résultat :
usr/local/bin/sudo /usr/bin/nsradmin <<fin 2>&1 | tee | grep -c "status: running"
show status
option hidden
print type:NSR group;name:$Tab_Pool[$Saisie_Pool][$i]
quit
fin


Je ne sais pas comment mettre ça dans 'system', car ma commande est sur plusieurs lignes...

Si quelqu'un a la solution, ou un truc approchant...

Merci d'avance...

1 réponse

blux Messages postés 26010 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 26 avril 2024 3 289
19 oct. 2006 à 11:35
On peut mettre entre backquotes et récupérer le résultat dans une variable :
$Resu=`usr/local/bin/sudo /usr/bin/nsradmin <<fin 2>&1 | tee | grep -c "status: running"
show status
option hidden
print type:NSR group;name:$Tab_Pool[$Saisie_Pool][$i]
quit
fin`
Ca me va...
3