• [^] # Re: quotes

    Posté par . En réponse au message Perl et expect. Évalué à 2.

    Merci, c'était exactement ça :-)
    J'ai testé avec netcat pour simuler un telnet puis je suis passé à telnet, puis je suis passé à ssh car c'était le but au départ.

    Le code ressemble à ça:

    my $commandes = "set timeout 5\n".
    "spawn telnet -b 192.168.5.201 192.168.14.254\n".
    "expect \\\"login:\\\"\n".
    "send \\\"admin\\r\\\"\n".
    "expect \\\"Password:\\\"\n".
    "send \\\"SDCroute\\r\\\"\n".
    "expect \\\"#\\\"\n".
    "send \\\"ifconfig ppp0\\r\\\"\n".
    "expect \\\"#\\\"\n".
    "send \\\"exit\\r\\\"\n";

    open ( my $pipe, '-|', "echo -e \"$commandes\" | expect 2>&1" );


    Ca m'agace de me faire avoir pour un truc aussi simple :-)

    Maintenant je récupère l'adresse ip en sortie avec sed et c'est bon.