Re^2: Pause and Resume Exe

[gautamparimoo]

But I have to specify in the beginning only when to suspend and resume the exe. Nothing can be given while script is already running

[BrowserUk]

But I have to specify in the beginning only when to suspend and resume the exe.

No you don't.

Script A uses Win32::Process::CreateProcess() to start perl.exe running script B. It gets a process handle back from that call.

Script B is running asynchronously from Script A. And Script A can call $hproc->Suspend() and $hproc->Resume() whenever it chooses to.

[gautamparimoo]

@BrowserUK . Plz elaborate how can tell the script A to suspend through script B(I cannot hardcode in script B to suspend for some time as that would be known only at runtime)and then resume again?

[BrowserUk]

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.