While Schleife bei bestimmten Ereigniss sofort....: abbrechen. Geht das? - #54518 (Allgemeines zu Perl)

zipster

2005-05-06 11:44

User since
2004-09-06
458 Artikel
BenutzerIn
[default_avatar]

Ich bekomme es nicht hin den Service Stoppen zu lassen.
:(
Kann mir vieleicht jemand helfen.

Er bleibt vor der while Schleife stehen und wartet darauf das ein Client connected. Und wenn dieser Code in dem Service drin ist bekomme ich ihn nicht mehr beendet.
Wenn ich diese Whileschleife raus nehme funktioniert das Starten und Stoppen einwandfrei... HILFE!

Code: (dl )

while(my @readable = $select->can_read) 
            {
            foreach my $socket (@readable) 
               
 {
               
 if($socket == $server) 
               
     {
               
     my $client = $socket->accept;
               
     print "New client connects\n";
                    $select->add($client);
               
     $client->print("Welcome\n");
               
     }

\n\n

http://home.arcor.de/dsl-neunkirchen/etc/ie_firefo...