Thread fork() wirft Fehler Free to wrong pool (Windows) (21 answers)
Opened by bianca at 2013-09-26 07:53

bianca
 2013-09-26 07:53
#170650 #170650
User since
2009-09-13
7016 Artikel
BenutzerIn

user image
Habe anlässlich des Themas fork() Windows und CGI mal versucht, einen ganz schlichten Daemon zu schreiben, der auf ein Verzeichnis nach Auftragsdateien pollt.
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

print "Start\n";
my $lauf = 1;
while ($lauf) {
    if (opendir my $vh,'.') {
        foreach my $file (
            grep {
                $_ =~ /^[a-z0-9]\-auftrag.dat$/
                    &&
                !-z $_
            }
            readdir $vh
        ) {
            print "Datei $file gefunden\n";
            my $pid;
            if (!($pid = fork())) {
                # Sohn
                print "Sohn gestartet\n";
                sleep(5);
            }
        }
    }
    print "Warte\n";
    sleep(2);
}
print "Ende\n";

Leider bricht dieses Script schon kurze Zeit nachdem der Sohn gestartet wurde ab:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Start
Warte
Warte
Warte
Warte
Warte
Warte
Warte
Warte
Warte
Warte
Warte
Warte
Warte
Warte
Datei 1-auftrag.dat gefunden
Warte
Sohn gestartet
Datei 1-auftrag.dat gefunden
Warte
Sohn gestartet
Datei 1-auftrag.dat gefunden
Warte
Sohn gestartet
Warte
Datei 1-auftrag.dat gefunden
Warte
Sohn gestartet
Free to wrong pool 1d05178 not 2f3f18 at test_daemon.pl line 28.
Warte
Warte
Warte

Weiß jemand, warum das so ist?
Windows 7 32 Bit, Strawberry 5.10.1

modedit Editiert von GwenDragon: Titel ergänzt
Last edited: 2013-09-26 12:28:56 +0200 (CEST)
10 print "Hallo"
20 goto 10

View full thread fork() wirft Fehler Free to wrong pool (Windows)