Re: Need help on expect

[Anonymous Monk]

If I am understanding your requirement correctly then a quick fix might be this:

# at the top of your script:
my $state = 0;
# ...
    [ qr/Enter pack name \(or q\) \[q\]:\s+/ => sub {
        if ($state==0) {
            $exp->send("NB_CLT_7.6.0.2\r");
        }
        else {
            $exp->send("q\r");
        }
        $state++;
        exp_continue;
        }
    ],

(untested)

[Anonymous Monk]

Oops, I missed you've got a sequence and you expect "Enter pack name" twice. Please disregard the advice in the parent.

[hdb]

I would think that your proposal will work...

[Anonymous Monk]

Possibly, but in the OP the two regexes that include "Enter pack name" are slightly different, so it's hard to tell what the intentions were (i.e. whether the two prompts are different or the same)... we'll have to wait and see what toaravind says :-)