SPUG: Default action from Except.pm

[Mayank Agarwal]

Dear all,
I am using Except.pm to automate a interactive script. I searched net, but
could not find, how to give a default action, if no expression matches in
except construct.

My code looks like the below:

my $exp = new Expect;
$exp->spawn("some_command")
$exp->expect(undef,
                  [qr/.*name.*/   =>
                    sub {
                      my $fh = shift;
                      $fh->send("myname\n");
                      exp_continue;
                    }
                   ],


                  [qr/.*city.*/   =>
                    sub {
                      my $fh = shift;
                      $fh->send("mycity\n");
                      exp_continue;
                    }
                   ],
);


Thanks and Regards
Mayank

-- 
This message has been scanned for viruses and
dangerous content by MailScanner, and is
believed to be clean.