[Trilug-ontopic] yet another perl/expect question, round 2

[Greg Brown]

Hum... still doesn't work.. shoot.

On Thu, Jan 21, 2010 at 12:54 PM, Dave Hostetler
<hostetler.david at gmail.com>wrote:

> You may need to also escape the / so...
> 'Do.*\(Y\/N\)\?'  **NOTE that is not a V is it \ / together.
>
> Dave
>
> On Jan 21, 2010, at 12:51 PM, Greg Brown wrote:
>
> Hum... it's still hanging on that line.  I'll keep plugging away.  I'm sure
> it's tripping up on something in there.
>
> Greg
>
> On Thu, Jan 21, 2010 at 12:20 PM, Trevor Little <trevormg19 at gmail.com>wrote:
>
>> Remember that parens and question marks are special in regular
>> expressions, so you probably need something like this:
>>
>> 'Do.*\(Y/N\)\?'
>>
>> Trevor
>>
>> On Thu, Jan 21, 2010 at 12:14 PM, Greg Brown <gwbrown1 at gmail.com> wrote:
>> > Ok, this is annoying.. my script works perfectly until the last line..
>> here
>> > are the last couple of lines:
>> >
>> > Primary DNS Server:    192.168.124.221
>> > Optional DNS Server:    192.168.134.29
>> > Is the above information correct (Y/N)?Y
>> > You must reboot the sensor to take the setting effects
>> > Do you want to reboot now(Y/N)?
>> >
>> > An oc -d of the last three lines looks like this:
>> >
>> > 0000000   I   s       t   h   e       a   b   o   v   e       i   n   f
>> > 0000020   o   r   m   a   t   i   o   n       c   o   r   r   e   c   t
>> > 0000040       (   Y   /   N   )   ?   Y  \n   Y   o   u       m   u   s
>> > 0000060   t       r   e   b   o   o   t       t   h   e       s   e   n
>> > 0000100   s   o   r       t   o       t   a   k   e       t   h   e
>> > 0000120   s   e   t   t   i   n   g       e   f   f   e   c   t   s  \n
>> > 0000140   D   o       y   o   u       w   a   n   t       t   o       r
>> > 0000160   e   b   o   o   t       n   o   w   (   Y   /   N   )   ?  \n
>> > 0000200  \n
>> > 0000201
>> >
>> >
>> > I have tried *EVERYTHING* to match that last line including:
>> >
>> >         # now it tells us we must reboot (which we just told it we
>> wanted to
>> > do).. so send another Y
>> >         my($which, $why, $match, $before, $after) =
>> > $ssh->expect(30,'-re','You.*');
>> >
>> >         # now it tells us we must reboot (which we just told it we
>> wanted to
>> > do).. so send another Y
>> >         my($which, $why, $match, $before, $after) =
>> $ssh->expect(30,'*');
>> >
>> >         # now it tells us we must reboot (which we just told it we
>> wanted to
>> > do).. so send another Y
>> >         my($which, $why, $match, $before, $after) =
>> > $ssh->expect(30,'-re','You.*(Y/N)?');
>> >
>> > I've even tossed out the "You" and started with "Do"... and I've tried
>> to
>> > take the "magic match any darn thing" too.
>> >
>> > And a thousand other combinations and nothing works.  Does anyone have
>> any
>> > ideas?  this is really giving me a headache..  The line above ends much
>> the
>> > same, but not exactly, but I've matched that and using the line below
>> and it
>> > works fine... ugh.  Any ideas would be very welcomed at this point...
>> >
>> > # now it wants to know if you want to reboot (and we do)
>> > my($which, $why, $match, $before, $after) =
>> > $ssh->expect(30,'-re','The.*(Y/N)?');
>> >
>> > Greg
>> >
>> >
>> >
>> >
>> >
>> > _______________________________________________
>> > Trilug-ontopic mailing list
>> > Trilug-ontopic at trilug.org
>> > http://www.trilug.org/mailman/listinfo/trilug-ontopic
>> >
>> >
>> _______________________________________________
>> Trilug-ontopic mailing list
>> Trilug-ontopic at trilug.org
>> http://www.trilug.org/mailman/listinfo/trilug-ontopic
>>
>
> _______________________________________________
> Trilug-ontopic mailing list
> Trilug-ontopic at trilug.org
> http://www.trilug.org/mailman/listinfo/trilug-ontopic
>
>
>
> _______________________________________________
> Trilug-ontopic mailing list
> Trilug-ontopic at trilug.org
> http://www.trilug.org/mailman/listinfo/trilug-ontopic
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://www.trilug.org/pipermail/trilug-ontopic/attachments/20100121/74177ff8/attachment.htm>