Expect

[Jiri Polcar]

    Ciao,

nema nekdo zkusenosti s pouzivanim Expectu? Pri pokusu spojeni se
telnetem (skript nize) dostau:

    Trying 10.224.179.104...
    Connected to 10.224.179.104 (10.224.179.104).
    Escape character is '^]'.


        Node TIGER1, unauthorized access prohibited.

    Username:

A to je vse. Kurzor blika za dvojteckou a obcas zahlidnu nejaky
pismenko, ktery se pomoci send() odesila. Ale jen problikne a zase se
smaze. Vypada to, ze je nejak spatne nastaveno tty... Nema s tim nekdo
zkusenost? Jinak seance probehne, jen nevidim vystup telnetu...

---code---
    use strict;
    use Expect;


    my $timeout = 10;
    my $shell_prompt = '>';

    my $exp = new Expect->spawn( 'telnet 10.224.179.104' );

    $exp->expect($timeout,
                 [ qr/username: /i, sub { my $self = shift;
                                       $self->send("login\n");
                                       exp_continue; }],
                 [ qr/password: /i, sub { my $self = shift;
                                       $self->send( "heslo\n");
                                       exp_continue; }],
                 $shell_prompt);

---code---

Dik,
Jiri