Can I use Mojo::IOLoop::Subprocess for a non-blocking process?

talexb has asked for the wisdom of the Perl Monks concerning the following question:

I have a Mojolicious monitoring web app that's working well. I'd like to extend it to give it the ability to start scripts running.

My code is something like this:

    use Mojolicious::Lite;
    use Mojo::IOLoop::Subprocess;
...
post '/' => sub {
...
    my $message = 'INFO: Something useful';
    my $cmd = 'cd /home/foo/bar && ./some-script.pl >some.out 2>some.e
+rr';

    my $subprocess = Mojo::IOLoop::Subprocess->new;
    $subprocess->run(

      sub {

        my $subprocess = shift;
        my $result = qx/$cmd/;

        return $result;
      },  
      sub {

        my ($subprocess, $err, @results) = @_; 
        if ( $err ) { $message .= "ERROR: $err"; }
        else { $message = $results[0]; }
      }   
    );  

    $subprocess->ioloop->start unless $subprocess->ioloop->is_running;
...
    $c->render(template => 'index');
};
[download]

In the $cmd, I'm cd'ing into a directory and running a known script. The good news is that this works .. the script does actually run fine, and the output and error files are created correctly. What I'm not expecting is that the Mojolicious web app doesn't return immediately while the script runs; rather, it waits for the script to finish.

The behaviour that I'd like is to see that the script started, with the web page refreshing a second or two later. At some point a couple of minutes later, the script will finish .. but I really don't care about the output.

Alex / talexb / Toronto

Thanks PJ. We owe you so much. Groklaw -- RIP -- 2003 to 2013.

Comment on Can I use Mojo::IOLoop::Subprocess for a non-blocking process? Select or Download Code

Replies are listed 'Best First'.
Re: Can I use Mojo::IOLoop::Subprocess for a non-blocking process? by Anonymous Monk on Mar 23, 2019 at 05:42 UTC
Try Mojolicious::Plugin::Subprocess is a Mojolicious plugin that adds a "subprocess" helper method to your application, which uses Mojo::IOLoop::Subprocess to perform computationally expensive operations in subprocesses without blocking the event loop. https://metacpan.org/release/Mojolicious-Plugin-Subprocess/source/lib/Mojolicious/Plugin/Subprocess.pm	[reply]
Re: Can I use Mojo::IOLoop::Subprocess for a non-blocking process? by localshop (Monk) on Mar 26, 2019 at 15:08 UTC
For this specific use case have you considered something like the following? `system('my_command_which_will_not_block &');` [download]	[reply] [d/l]
Re^2: Can I use Mojo::IOLoop::Subprocess for a non-blocking process? by talexb (Chancellor) on Mar 29, 2019 at 15:33 UTC
Yup .. that's what I ended up doing. `my $cmd = "cd /home/foo/$row->{'dir'} && " . "./$row->{'name'}.pl >some.out 2>some.err &"; my $result = system ( $cmd );` [download] And it works fine. Thanks for following up. Alex / talexb / Toronto Thanks PJ. We owe you so much. Groklaw -- RIP -- 2003 to 2013.	[reply] [d/l]
Re^3: Can I use Mojo::IOLoop::Subprocess for a non-blocking process? by afoken (Chancellor) on Mar 30, 2019 at 15:56 UTC
`my $cmd = "cd /home/foo/$row->{'dir'} && " . "./$row->{'name'}.pl >some.out 2>some.err &"; my $result = system ( $cmd );` [download] Potential shell injection vulnerability (`$row->{'dir'}` and `$row->{'name'}`). Consider using fork and exec manually. Rough sketch: `my $pid=fork() // die` In the main program (`$pid != 0`), call waitpid($pid) at some point to wait for the end of the program you have forked before. Perhaps in a SiGCHLD handler. In the child process (`$pid == 0`), do the following: `chdir("/home/foo/$row->{'dir'}") or die` `open STDOUT,'>','some.out' or die` `open STDERR,'>','some.err' or die` `exec("$row->{'name'}.pl") or die` Related: The problem of "the" default shell Alexander -- Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)	[reply] [d/l] [select]
Re^4: Can I use Mojo::IOLoop::Subprocess for a non-blocking process? by talexb (Chancellor) on Mar 31, 2019 at 19:04 UTC
Re^4: Can I use Mojo::IOLoop::Subprocess for a non-blocking process? by Anonymous Monk on Mar 30, 2019 at 17:48 UTC


Perl: the Markov chain saw
	PerlMonks