in reply to Expect pattern match

Like this?

$exp->expect($timeout, [ qr/regex1/ => sub { my $exp = shift; ... $exp->send("response\n"); } ], [ qr/regex2/ => sub { my $exp = shift; ... $exp->send("response\n"); } ], ); $exp->expect($timeout, [ qr/regex1/ => sub { my $exp = shift; ... $exp->send("response\n"); exp_continue } ], );

Alternatively,

$first = 1; $exp->expect($timeout, [ qr/regex1/ => sub { $first = 0; my $exp = shift; ... $exp->send("response\n"); } ], [ qr/regex2/ => sub { return exp_continue_timeout unless $first; $first = 0; my $exp = shift; ... $exp->send("response\n"); } ], );

Update: Part of my reply got accidently erased. Re-added the missing chunk.