perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 30
 Click for quality!



11.02.2012 / 18:21
Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home

PERLscripts

PHPscripts

JAVAscripts

Hilfreiches

Links2www

Newscenter

Community

Interna



Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragIO::Socket's forken
 Seitenanfang
Bin gerad einwenig am lernen und komm hier nicht weiter.
Ich möchte alle eingehenden Verbindungen in eigenen Kind-Prozessen verarbeiten.
Nun ist es aber so, wenn ich eine Verbindung mit einer Endlosschleife aufbaue und dannach eine weitere kurze dran hänge, wird diese erst verarbeitet, wenn die 1. Verbindung beendet ist. Irgendwie scheint mir, das der 1. Prozess im Mutter-Prozess läuft, aber ich bekomms irgendwie nicht hin :-(
Kennt sich da wer aus?
01: my $PId = undef;
02: 
03: while ( $new_sock = $sock->accept() ) {
04: 
05:         if ( defined ( $PId = fork() ) ) {
06: 
07:                 if ( $PId ) {
08: 
09:                         open(DATEI, "> DATEI$$.txt");
10:                         
11:                         while ( defined ( $Data = <$new_sock> ) ) {
12: 
13:                                 chomp ( $Data );
14:                                 print DATEI "Data\n";
15: 
16:                         }
17:                         
18:                         close(DATEI);
19:                         exit;
20: 
21:                 }
22: 
23:         }
24: 
25: }
26: 
27: close ( $sock );

Datum: 03.12.2007-22:17
Beitragre: IO::Socket's forken
 Seitenanfang
Im Übrigen lieft es sonst gut, also die Sockets funktionieren, nur die vergabelung nicht.
Oben fehlt halt noch der Header mit IP, Port etc. Den braucht man hier glaub nicht.

Datum: 03.12.2007-22:20
-






-
 -