Re: Need help on expect

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;
        }
    ],
[download]

(untested)

Comment on Re: Need help on expect Download Code

Replies are listed 'Best First'.
Re^2: Need help on expect by Anonymous Monk on Feb 20, 2015 at 13:02 UTC
Oops, I missed you've got a sequence and you expect "Enter pack name" twice. Please disregard the advice in the parent.	[reply]
Re^3: Need help on expect by hdb (Monsignor) on Feb 20, 2015 at 14:00 UTC
I would think that your proposal will work...	[reply]
Re^4: Need help on expect by Anonymous Monk on Feb 20, 2015 at 14:05 UTC
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 :-)	[reply]
Re^5: Need help on expect by toaravind (Initiate) on Feb 25, 2015 at 08:48 UTC