URL: https://linuxfr.org/forums/programmation-perl/posts/procdaemon-et-bloc-end
Title: Proc::Daemon et bloc END { }
Authors: Tonton Benoit
Date: 2008年07月31日T21:55:55+02:00
Tags: 
Score: 0
Toujours pour mes statistiques d'utilisation de l'IPv6 [https://linuxfr.org/forums/41/25592.html](https://linuxfr.org/forums/41/25592.html) , j'ai fait un daemon en perl qui utilise iptables [http://www.linux.com/articles/50649](http://www.linux.com/articles/50649) . 
 
J'ai mis ce code dans un bloc END pour mettre à jour une dernière fois la BDD à l'arrêt du daemon : 
 
 END { 
 £spaces£ £/spaces£if (getppid() == 1) { update_stats(); } 
 } 
 
 
Avec getppid() == 1, j'ai déjà empêché la mise a jour à l'arrêt du processus initial, mais Proc::Daemon forke deux fois le programme pour le séparer de son parent. 
 
J'aimerai que update_stats() ne soit pas appelé à la fin du premier fork. 
 
J'ai penser tester si $$ (le pid du processus en cours) est>= au pid du processus original + 2 mais ce n'est pas très (voire pas du tout) fiable. 
 
Bref une idée ?
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="httpS://linuxfr.org/forums/programmation-perl/posts/procdaemon-et-bloc-end.md">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="httpS://linuxfr.org/forums/programmation-perl/posts/procdaemon-et-bloc-end.md" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>