in reply to Expect problems
Ok so I did some further debuging and I have things working till the next case match:
Thanks all
When I see the next >> Real server I am stuck in the apply loop and it wont send the save command, so I wondered if I could do a double match like look for the line before and then match the >> Real server line for the save command[qr">> Real server $number - $", sub{ $spawn_ok = 1; my $fh = shift; print $fh "$apply\r"; sleep 2; exp_continue; }],
Does anyone have any thoughts on this??[qr">> Real server $number - $", sub{ $spawn_ok = 1; my $fh = shift; print $fh "$save\r";
Thanks all
SUNADMN
USE PERL
USE PERL
In Section
Seekers of Perl Wisdom