alarm für kind - #124727 (Allgemeines zu Perl)

freddy

2009-08-25 07:52

User since
2009-08-08
95 Artikel
BenutzerIn

user image

2009-08-24T16:17:36 MatthiasW
Könntest du bitte noch deine Lösung posten. Falls jemand danach sucht wäre es ziemlich hilfreich, wenn er eine Lösung finden würde ;)

MfG

Stimmt hast Recht. Mach ich gern:

Vater:

Code (perl): (dl )

#!/usr/bin/perl -w
alarm 20;
my $pid;
if ($pid = fork()) {
 # Vater
 exit ();
 # /Vater
}
else {
 # Sohn
 require "irgendeinscript.pl";
 &test;
 exit ();
 # /Sohn
}

Sohn irgendeinscript.pl:

Code (perl): (dl )

alarm 3600;
sub test {
 print "Da bin ich und werde erst nach 1 Stunde gewürgt\n";
}
1;

Hiermit kann man ein vom Vater abweichendes alarm für den Sohn erreichen.