Andreas Flückiger: fork & Co.

Beitrag lesen

Wie sieht dein Code aus, und auf welchem Unix läuft das Script?

Ich bekomme diese beiden Zeilen beim Telnet-Login. Ich hoffe, dass dies das Richtige ist.
Cobalt Linux release 4.0 (Fargo)
Kernel 2.0.34 on a mips

Den Code übernahm ich 1:1 von deinem Beispielscript, also:

#!/usr/bin/perl
use POSIX qw(setsid);
if (!defined($Pid = fork()))
{
die "Fork konnte nicht ausgeführt werden. Vielleicht unterstützt ihr Betriebssystem diesen Aufruf nicht.";
}
elsif ($Pid == 0)
{
    setsid();
    sleep (120);
    open (TESTDATEI, ">still");
    print TESTDATEI "Test\n";
    close(TESTDATEI);
    close (TESTDATEI);
    exit(0);
}
else
{
    print "Content-type: text/html\n\n";
    print "Ok, das Programm läuft jetzt.";
    exit (0);
}