Função Perl fork

Descrição

Esta função bifurca um novo processo usando a chamada de sistema fork (). Quaisquer sockets ou identificadores de arquivo compartilhados são duplicados nos processos. Você deve garantir que espera por seus filhos para evitar a formação de processos "zumbis".

Sintaxe

A seguir está a sintaxe simples para esta função -

fork

Valor de retorno

Esta função retorna undef em caso de falha de bifurcação e ID do processo filho para pai em caso de sucesso 0 para filho em caso de sucesso.

Exemplo

A seguir está o código de exemplo que mostra seu uso básico -

#!/usr/bin/perl

$pid = fork();
if( $pid == 0 ) {
   print "This is child process\n";
   print "Child process is existing\n";
   exit 0;
}
print "This is parent process and child ID is $pid\n";
print "Parent process is existing\n";
exit 0;

Quando o código acima é executado, ele produz o seguinte resultado -

This is parent process and child ID is 18641
Parent process is existing
This is child process
Child process is existing