Beefy Boxes and Bandwidth Generously Provided by pair Networks Cowboy Neal with Hat
go ahead... be a heretic
 
PerlMonks  

Re^5: Pause and Resume Exe

by BrowserUk (Pope)
on Feb 28, 2013 at 12:10 UTC ( #1021045=note: print w/ replies, xml ) Need Help??


in reply to Re^4: Pause and Resume Exe
in thread Pause and Resume Exe

Given count.pl that looks like this:

C:\test>type count.pl #! perl -slw use strict; use 5.010; say for 1 .. 1e6;

You can run that script using this script:

#! perl -slw use strict; use Win32::Process; Win32::Process::Create( my $hProc, '/perl64/bin/perl.exe', 'perl count.pl', 0, 0, '.' ) or die $^E; my $state = 1; while( <STDIN> ) { if( $state ) { $hProc->Suspend(); $state = 0; } else { $hProc->Resume(); $state = 1; } print "\nProcess is ", $state ? 'running' : 'suspended'; }

And each time you press enter on the command line, count.pl will be suspended or resumed.


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.


Comment on Re^5: Pause and Resume Exe
Select or Download Code
Re^6: Pause and Resume Exe
by gautamparimoo (Beadle) on Mar 01, 2013 at 05:41 UTC

    But again it keeps on waiting for some input from user as the process does not finish. It cmd running the process keeps on waiting. Why?

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (12)
As of 2014-04-17 16:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (453 votes), past polls