[Expectperl-discuss] Checking accumulator without a second expect

[<li...@jo...>]

<p><br />Hi all,<br /><br />Sorry this is so long and vague (I'll try to co=
de up a small example because my little project uses a back-end database an=
d I'd like to split the Expect piece out - this will take a while).&nbsp; F=
or anyone who's interested have a look at the March 2007 thread to see the =
solution to my original problem.<br /><br />My new code (below) no longer w=
orks (I've done a lot of code changes and need to backtrack to see what exa=
ctly broke it).&nbsp; In the meantime I'm wondering if there's a better way=
.<br /><br />Here's what I'm trying to do...<br />1. Match and capture a pr=
ompt at the start of a line.<br />&nbsp;&nbsp; This works perfectly (March =
2007 code)<br />2. Look up the matched prompt and see if it...<br />&nbsp;&=
nbsp;&nbsp;&nbsp; (a) needs a response,<br />&nbsp;&nbsp;&nbsp;&nbsp; (b) c=
an be ignored, or,<br />&nbsp;&nbsp;&nbsp;&nbsp; (c) needs special handling=
.<br />&nbsp;&nbsp; Always works.<br />3a. For &quot;normal&quot; prompt se=
nd response + &quot;\r&quot; and exp_continue for next prompt.<br />3b. For=
 &quot;ignored&quot; prompt just exp_continue.<br />3c. For a &quot;special=
&quot; prompt sleep 3 seconds then check if there's any more output, if the=
re is the script&nbsp; shouldn't send a response because the remote system =
is showing the status of this setting as opposed to asking for input.&nbsp;=
 It will then present the next prompt (i.e. treat this prompt as in case 3b=
 above). But if there's no further output it's a request for input and so a=
 response must be given (even if just &quot;\r&quot;) as in 3b.<br /><br />=
<br />Case 3c isn't working.&nbsp; When I do it manually I get this...<br /=
><br />NORMAL_PROMPT_1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (I send response=
 + &quot;\r&quot;)<br />NORMAL_PROMPT_2&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
 (I send response + &quot;\r&quot;)<br />SPECIAL_PROMPT_1&nbsp; NO&nbsp; (I=
 see &quot;NO&quot; straight away and do nothing)<br />SPECIAL_PROMPT_2&nbs=
p;&nbsp;&nbsp;&nbsp;&nbsp; (I send response + &quot;\r&quot; as input requi=
red)<br />NORMAL_PROMPT_3&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (I send respo=
nse + &quot;\r&quot;)<br />...<br /><br /><br />When scripted this&nbsp; ha=
ppens...<br /><br />NORMAL_PROMPT_1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (script s=
ends response + &quot;\r&quot;)<br />NORMAL_PROMPT_2&nbsp;&nbsp;&nbsp;&nbsp=
;&nbsp; (script sends response + &quot;\r&quot;)<br />SPECIAL_PROMPT_1&nbsp=
;&nbsp;&nbsp;&nbsp; (sleep 3 seconds)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n=
bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp=
;&nbsp;&nbsp; (don't see further output so send response + \r)<br />&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs=
p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print debug message to terminal &quo=
t;*sending*&quot;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs=
p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Then I=
 get NO from the remote printed on the screen<br /><br />So it looks like..=
.<br /><br />NORMAL_PROMPT_1&nbsp;&nbsp;&nbsp; RESPONSE_1\r<br />NORMAL_PRO=
MPT_2&nbsp;&nbsp;&nbsp; RESPONSE_2\r<br />SPECIAL_PROMPT_1&nbsp;&nbsp; RESP=
ONSE_3\r *sending*<br />NO&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (the \r sent above fo=
rces a newline here even if response is &quot;&quot;)<br />NORMAL_PROMPT_3&=
nbsp;&nbsp;&nbsp; remote assumes RESPONSE_3 + \r is for this.<br />&nbsp;&n=
bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp=
;&nbsp;&nbsp;&nbsp;&nbsp; Wrong :-(<br /><br /><br />It seems that after se=
nding &quot;response\r&quot; the accumulator suddenly gets the NO from the =
remote system but that's after the script thinks it has to send a response.=
&nbsp; Kermit may be the problem as it's driving the link (either serial or=
 via telnet) and it may be buffering (I don't think so as it works OK manua=
lly)<br /><br /><br />Is there a way to check if I need to send a response =
without having to actually send it?<br /><br />I've tried combinations of<b=
r />buffer =3D exp-&gt;after()<br />and<br />buffer =3D clear_accum(); set_=
accum($buffer)<br />but no joy.</p><p>&nbsp;</p><p>Is there a way to check =
for further characters without absorbing them (because that text could be m=
y next prompt and I need to keep that in the accumulator for the next pass =
of expect)<br /><br />Thanks,<br />John.<br /><br /> =0D
</p><BR>