Pause a perl script

[juo]

When I run a script from within another application that supports Perl then the application will be locked until the script has finished. Is it possible in Perl to build in a Pause with a TK gui that allows interacation (unlock the application) with the application until the operator tell the script to continue. (I have been checking google but only could find sleep which only delay the script but doesn not allow interaction)

[Gloom]

You can use sleep without argument. In this case, the script hang until it receive a SIGALARM signal ( from another app of course ).

I hope this help ( and that I haven't missunderstood the question :)

[mr_leisure]

You can have a look at Main::Fileevent in Tk. Its pretty handy for looping, sleeping etc.
Do a googlesearch for Fileevent + Tk, or check out page 305 of Learning Perl/Tk from O'Reilly.

Also Known As : Captain Contraption

if ($mr_leisure) { bow; }

this is still not finished

[ichimunki]

A program/process/thread can only be doing one thing at a time unless you fork the process or start a new thread. If the program thinks it is running a Tk program then it will have to wait for the Tk program to finish. It sounds like a case for fork and using something like a pipe for interprocess communication (or you could have your initial application periodically check for some other signal that the Tk script has done what it needs to do).

[AgentM]

You could use signals with a sleep (mentioned above- that seems harmless enough) or you give IPC a try which will allow you to pass relevant information ALONG with the signal to continue. Maybe then, you can be sure that the SIGARLM is really a continue and not a joke played on you by a mindless "other" root user.


AgentM Systems nor Nasca Enterprises nor Bone::Easy nor Macperl is responsible for the comments made by AgentM. Remember, you can build any logical system with NOR.