[Expectperl-discuss] Getting at what you matched

[Blackstone, J. D. <jda...@ci...>]

  This:

$x->expect($t,
           [qr/literal(\d+)literal/ =>
            sub {print "The number is $1\n"}]);

doesn't do what I would expect.  $1, $2, etc. don't seem to be set by the
regex matching in _multi_expect.

  Compare this to TCL Expect:

expect -re "literal(\[0-9]+)literal" {
  send "The number is $expect_out(1,string)\n"
}


  Of course, getting _multi_expect to preserve $1, $2, etc. would probably
be a nightmare.  It would be Real Swell, though.

jdb