Re: [Expectperl-discuss] Output from before() gets truncated if Re: Output from before() gets truncated if it's too long

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

<p>Here's something that worked for me...</p><p>1. Expect on the system pro=
mpt ( qr/^REQ: / in my case) then send the command to print the listing</p>=
<p>2. Optionally &quot;expect&quot; the command (to absorb it from the list=
ing), you can also absorb any headers you don't want.&nbsp;</p><p>3. Now le=
t the system do its work.</p><p>4. Expect on another system prompt.</p><p>W=
hatever printed in step 3 (i.e. from the system) is stored in $exp-&gt;befo=
re(), this is your listing.</p><p>&nbsp;</p><p>Example:</p><p># Step 1: Get=
 the system prompt and send a response...<br />$exp-&gt;expect(10,<br />&nb=
sp; [ qr/^REQ: / =3D&gt; sub {<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb=
sp;&nbsp;&nbsp; $self =3D shift;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp; $self-&gt;send(&quot;PRINT\r&quot;)<br />&nbsp;&nbsp;&nbs=
p; }<br />&nbsp; ],<br />&nbsp; [ timeout =3D&gt; sub { die (&quot;Timeout =
in step 1&quot;) }<br />&nbsp; ]<br />);<br /><br /># Step 2 not coded</p><=
p># Step 3: System prints stuff here</p><p>&nbsp;# Step 4: Find the next sy=
stem prompt<br />$exp-&gt;expect(10,<br />=0D
&nbsp; [ qr/^REQ: / ],<br />&nbsp; [ timeout =3D&gt; sub { die (&quot;Timeo=
ut in step 4&quot;) } ]<br />=0D
);</p><p>$listing =3D $exp-&gt;before();<br />print $listing;</p><p><br />R=
egards,<br />John.</p><p>&nbsp;</p><p>&nbsp;</p><BR>