Multithread Server mit fork: Childs beenden sich nicht - #57123 (Allgemeines zu Perl)

Strat

2005-08-11 19:09

User since
2003-08-04
5246 Artikel
ModeratorIn

versuche mal nach dem close ein
shutdown($client, 2);
(oder 1 => ende schreiben, 0 => ende lesen, 2 => ende der benutzung; 2 ist halt recht hart, vielleicht reicht 1 oder 0, je nachdem, ob du gelesen oder geschrieben hast)

weiters ist dein signalhandler suboptimal (den auskommentierten meine ich; der aktive taugt nichts):

Code: (dl )

use POSIX qw(:sys_wait_h);

sub REAPER {
    1 until (-1 == waitpid(-1, WNOHANG));
    $SIG{CHLD} = \&REAPER; 
}
$SIG{CHLD} = \&REAPER;

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/