http://www.perlmonks.org?node_id=1002018


in reply to How can I run a piece of code asyncronously in Perl?

threads 

use threads;

async {
    `t1.pl "arg1" "arg2" "arg3"`;
}->detach;

print "DONE\n";

[download]

Note: It doesn't make much sense to use backticks if you do nothing with the returned output; but that's not the subject of the question.

And having the first script end immediately after starting the second doesn't make much sense in isolation either -- why not just run the second script directly. But I assume this is just a generic example to satisfy the "where's your code" crowd.

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.

RIP Neil Armstrong

Replies are listed 'Best First'.
Re^2: How can I run a piece of code asyncronously in Perl?
by Doctrin (Beadle) on Nov 02, 2012 at 19:43 UTC
    Thanks. I'm sure it would work, but, if t2.pl would execute, say, in 0.1 sec, and the code in t1.pl would execute in 2.0 sec - it won't work (( Thread would be terminated, I suppose (( I need t1.pl to run completely independently of t2.pl which calls it...
[reply]
      t won't work... Thread would be terminated, I suppose.

      Why "suppose"? Did you try it? 

      C:\test>perl -Mthreads -E"async{ qx{perl -E\"sleep 5; die q[Now I'm do
+ne];\"} }->detach; select'','','',0.1; die 'I\'m done'"
I'm done at -e line 1.

C:\test>Now I'm done at -e line 1.

      [download]

      So long as you give the thread chance to start the command running, it will complete even if the thread dies.

      Ie. "t1.pl runs completely independently of t2.pl".

      It's probably not how I would do it; but then 'it' -- as you've defined it so far -- is so completely pointless, I probably wouldn't do it at all.

      But if I did, on Windows I'd probably use system 1, 't1.pl arg1 arg2 arg3';

      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.

      RIP Neil Armstrong
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom