How can I fire and forget a process in Perl?

by

From perlfaq8‘s answer to How do I start a process in the background?

Several modules can start other processes that do not block your Perl
program. You can use IPC::Open3, Parallel::Jobs, IPC::Run, and some of
the POE modules. See CPAN for more details.

You could also use

system("cmd &")

or you could use fork as documented in “fork” in perlfunc, with further
examples in perlipc. Some things to be aware of, if you’re on a Unix-
like system:

STDIN, STDOUT, and STDERR are shared

Both the main process and the backgrounded one (the “child”
process) share the same STDIN, STDOUT and STDERR filehandles. If
both try to access them at once, strange things can happen. You
may want to close or reopen these for the child. You can get
around this with “open”ing a pipe (see “open” in perlfunc) but on
some systems this means that the child process cannot outlive the
parent.

Signals

You’ll have to catch the SIGCHLD signal, and possibly SIGPIPE too.
SIGCHLD is sent when the backgrounded process finishes. SIGPIPE is
sent when you write to a filehandle whose child process has closed
(an untrapped SIGPIPE can cause your program to silently die).
This is not an issue with “system(“cmd&”)”.

Zombies

You have to be prepared to “reap” the child process when it
finishes.

   $SIG{CHLD} = sub { wait };

   $SIG{CHLD} = 'IGNORE';

You can also use a double fork. You immediately wait() for your
first child, and the init daemon will wait() for your grandchild
once it exits.

   unless ($pid = fork) {
       unless (fork) {
           exec "what you really wanna do";
           die "exec failed!";
       }
       exit 0;
   }
   waitpid($pid, 0);

See “Signals” in perlipc for other examples of code to do this.
Zombies are not an issue with “system(“prog &”)”.

More Related Contents:

  1. Data consolidation using Perl [closed]
  2. How can i do this in perl, shortcut truthtable [closed]
  3. How to retrieve the values of required keys in Perl [closed]
  4. Perl: Meaning of double squared brackets after a string?
  5. What does this HTML::Parser() code do in Perl? [closed]
  6. Why use strict and warnings?
  7. Why does modern Perl avoid UTF-8 by default?
  8. Why is three-argument open calls with autovivified filehandles a Perl best practice?
  9. What’s the difference between Perl’s backticks, system, and exec?
  10. How can I parse dates and convert time zones in Perl?
  11. Which one is good practice, a lexical filehandle or a typeglob?
  12. How do I tell if a variable has a numeric value in Perl?
  13. Perl memory usage profiling and leak detection?
  14. How do I daemonize an arbitrary script in unix?
  15. How can I store the result of a system command in a Perl variable?
  16. How can I check if a file exists in Perl?
  17. Using Encode::encode with “utf8”
  18. How can I start an interactive console for Perl?
  19. What does =~ do in Perl? [closed]
  20. How to convert letters with accents, umlauts, etc to their ASCII counterparts in Perl?
  21. Do you use an exception class in your Perl programs? Why or why not?
  22. How do I break out of a loop in Perl?
  23. Hidden features of Perl?
  24. “inappropriate ioctl for device”
  25. In Perl, how can I check from which module a given function was imported?
  26. How can I verify that a value is present in an array (list) in Perl?
  27. Demystifying the Perl glob (*)
  28. Perl Subroutine Prototyping — The correct way to do it
  29. Why do hash keys have different order when printing?
  30. How can I manually interpolate string escapes in a Perl string?

Leave a Comment