[bcn-pm] Enviar email quan acaba un procés

esteve at sindominio.net esteve at sindominio.net
Mon Jan 3 12:14:48 CST 2005


Hola a tots! Sóc nou, així que no sé com és la mecànica de la llista, si
és més de l'estil RTFM o intentar donar solucions o exemples, més val que
m'arrisqui ;)

> Ara em faltarà  descobrir com controlar la finalització dels processos i
> l'output que donen,

No sé si és el que estàs buscant, però espero que aquest codi d'exemple et
serveixi com a idea. Dispara tres fills i fa que el pare esperi per tots
ells, després de que acabi cadascun mostra el seu codi de retorn:

use POSIX ":sys_wait_h";
use warnings;
use strict;

if (fork==0) {
        print "Sóc el fill $$\n";
        # fer coses
        sleep 3;
        print "He acabat fill $$\n";
        exit 4;
} elsif(fork==0) {
        print "Sóc el fill $$\n";
        # fer coses
        sleep 5;
        print "He acabat fill $$\n";
} elsif(fork==0) {
        print "Sóc el fill $$\n";
        # fer coses
        sleep 2;
        print "He acabat fill $$\n";
        exit 1;
} else  {
        print "Sóc el pare $$\n";
        print "Esperant a que tothom acabi:\n";
        my $fpid;
        do {
                $fpid = waitpid(-1, WNOHANG);
                print "Estat: " , $? >> 8 , "\n" if $fpid > 0;
        } while($fpid >= 0);
        print "He acabat pare $$\n";
}




More information about the Barcelona-pm mailing list