Re: [Expectperl-discuss] How to expect everything???

[expect <ex...@ih...>]

On Thu, 05 Jun 2003 10:06:00 +0200
Sascha Gagalon <Sas...@al...> wrote:

> Hi all
> 
> first I want to thank you for your support in the past. You were right. 
> My Expect was too old. I had long discussions with our SysAdmin. Now I 
> got Perl 5.6.1 with Expect 1.14 and it seems to work.
> But I have another problem.
> 
> 
> 
> If I use:
> 
>    $exp = Expect->spawn("getIOR");
>    $exp->log_file("rmtest.log");
>  
> $exp->log_file->print("############################################################################################\n");
>    $exp->log_file->print(" TESTCASE: Get initial IOR from the RM of the 
> selected test station\n");
>  
> $exp->log_file->print("############################################################################################\n\n");
>    $exp->expect(70,
> 		  ['-re', "tftp> Received.*\n" => sub { exp_continue; }],
> 		  ["(IOR:[0-9a-f]+)" => sub{ $Root = $exp->exp_match(); exp_continue; }],
> 		  "STARTUP FINISHED"
> 	         );
>    $exp->log_file->print("\n");
>    $exp->hard_close();
>    $mtnm->log_file("rmtest.log");
> 
> I get in my logfile:
> 
> ############################################################################################
>   TESTCASE: Get initial IOR from the RM of the selected test station
> ############################################################################################
> 
> tftp> Received 366 bytes in 0.1 seconds
> tftp> Testing on slbwnf with MTNBE70-01G
> IOR:00323c930000002a49444c3a6f6f632e636f6d2f436f734e616d696e672f4f424e616d696e67436f6e746578743a312e3000db80000000010000000000000074000102540000000f3134392e3230342e3132342e373900005aac6a0000000025abacab305f526f6f74504f4100436f6e74657874504f410000cafebabe3e4bc625000000001581380000000100000001000000200012080000010001000000020001002005010001000101000000000100010109 
> 
> STARTUP FINISHED
> 
> 
> If I use:
> 
>    $exp->expect(70, '-re', ".*FINISHED");
> 
> I get:
> 
> ############################################################################################
>   TESTCASE: Get initial IOR from the RM of the selected test station
> ############################################################################################
> 
> STARTUP FINISHED
> 
> 
> My Problem is that I do not necessarily know what to expect. I want to 
> expect all, save it to a $var and do the interpretation later.
> So what is wrong?
> 
> Greets Sascha



This seems like perl and not expect, I think this is just because .* is doing the usual greedy
match.  So if you do a multiline match it should work.

hth