[PERL]-Exécuter une commande interactive

Résolu
blux Messages postés 27827 Statut Modérateur -  
blux Messages postés 27827 Statut Modérateur -
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...
A voir également:

1 réponse

blux Messages postés 27827 Statut Modérateur 3 363
 
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