Beefy Boxes and Bandwidth Generously Provided by pair Networks Ovid
XP is just a number
 
PerlMonks  

Re: Problem with win32::GUI using telnet

by Loops (Hermit)
on Apr 02, 2013 at 08:46 UTC ( #1026621=note: print w/ replies, xml ) Need Help??


in reply to Reaped: Problem with win32::GUI using telnet

Hello,

Unfortunately there is no easy fix for your problem. The issue is that the Windows GUI expects you to pass it control at regular intervals when you're in a loop using:

Win32::GUI::DoEvents();

However, because you're using Net::Telnet and it's waitfor method, you've handed over control and blocked your entire program until the matching text is detected. Thus everything in your program blocks and your GUI freezes.

For more information see the Win32::GUI faq

You have many options. One is to go through the gymnastics of running the telnet portion of your code in a thread and reading output from it in a loop that calls DoEvents. Or you could just grab a copy of Net::Telnet and modify it to do that internally

Short of developing your own network and telnet code, a wrapper around each blocking call to the Telnet module may be the easiest answer. It could generate and trap and alarm if the code takes too long. If the alarm fires, call DoEvents() and then restart the Telnet operation.

No guarantees that would work of course. It may introduce some subtle timing problems. Would be much cleaner to find an Asynchronous Telnet module to use,or bite the bullet and write your own networking code that doesn't block.


Comment on Re: Problem with win32::GUI using telnet
Download Code
Re^2: Problem with win32::GUI using telnet
by BrowserUk (Pope) on Apr 02, 2013 at 08:55 UTC
    Short of developing your own network and telnet code, a wrapper around each blocking call to the Telnet module may be the easiest answer.

    Wow! Great idea. Like regulating the speed of your car by turning the engine on and off.

    Od course, he could also try the simple solution Corion already suggested in the other thread.


    With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.

      Will try that with my car on the way to work tomorrow. ;o) Much agreed about the better solution in the other thread. Wish I had seen it before nattering on.

      Cheers.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1026621]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (7)
As of 2014-04-20 11:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (485 votes), past polls