[PERL]-Exécuter une commande interactive

Résolu
blux Messages postés 2051 Date d'inscription   Statut Modérateur Dernière intervention   -  
blux Messages postés 2051 Date d'inscription   Statut Modérateur Dernière intervention   -
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+ Blux
 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

1 réponse

  1. blux Messages postés 2051 Date d'inscription   Statut Modérateur Dernière intervention   3 455
     
    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