Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Recommend an asynchronous HTTP server CPAN modules? (updated)

by haukex (Archbishop)
on Jun 06, 2020 at 14:08 UTC ( [id://11117761]=note: print w/replies, xml ) Need Help??


in reply to Recommend an asynchronous HTTP server CPAN modules?

I've been doing a lot of work with Mojolicious lately and I've been liking it. It provides Mojo::IOLoop::Subprocess to fork off a subprocess so that one doesn't block the server.

#!/usr/bin/env perl use Mojolicious::Lite -signatures; use Mojo::IOLoop; get '/' => sub ($c) { $c->render(template => 'index'); } => 'index'; post '/doit' => sub ($c) { $c->render_later; Mojo::IOLoop->subprocess->run_p(sub { # this code is actually running in a subprocess! sleep 10; return "I did the thing!"; })->then(sub (@results) { $c->render(text => "@results"); })->catch(sub ($err) { $c->reply->exception($err); }); } => 'doit'; app->start; __DATA__ @@ index.html.ep % layout 'main', title => 'Hello, World!'; <div> %= form_for doit => ( method=>'post' ) => begin %= submit_button 'Do the thing' %= end </div> @@ layouts/main.html.ep <!DOCTYPE html> <html> <head><title><%= title %></title></head> <body> %= content </body> </html>

You could combine this with e.g. aychnronous AJAX form submission like I showed here, or one could probably even send progress messages (a feature provided by Mojo::IOLoop::Subprocess) to the browser using something like Javascript's EventSource API, which I included an example of here.

Update 2022-04-07: I've now posted an example of just that here.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others exploiting the Monastery: (6)
As of 2024-04-20 00:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found