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

[Sascha G. <Sas...@al...>]

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