La voix du secrétaire (Jean)
Présents à la réunion, en fonction de l'ordre d'arrivée :
Nous avons mangé des pizzas soleil, Angelina et 3-jambons, ainsi qu'une entrecôte au poivre, une tarte au citron, une tarte Tatin, une mousse au chocolat et un tiramisu. Nous avons bu de l'orangina, un kir, de la bière, un café serré et un déca. Le lemoncello était offert par la maison.
Nous avons parlé de Perl, Internet informatique et points divers.
Les participants ne mangent pas beaucoup.
my $prog = 'extr-client'; my @arg = qw(--client=toto --output=/tmp/extrait-toto.tar.gz); my $pid = fork(); if (!defined $pid) { die "Le fork a échoué"; } elsif ($pid == 0) { # nous sommes dans le processus fils exec($prog, @arg); die "Le exec a échoué"; } # nous sommes dans le processus père # vaquons à nos occupations ... # puis à un moment ou à un autre, waitpid($pid);Quelques remarques sur ce squelette de programme.
my @arg = qw(--client=toto --output=/tmp/extrait-toto.tar.gz);
touch /tmp/extrait-toto.tar.gz.done cat /dev/null > /tmp/extrait-toto.tar.gz.done