Problem mit fork und exec: geht nur mit: "exec myprogram &" (Allgemeines zu Perl)

[thread]6269[/thread]

Problem mit fork und exec: geht nur mit: "exec myprogram &"

quetzalcoatl

2004-05-18 15:59

User since
2004-04-01
51 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich wundere mich grade über ein Problem mit fork und exec.

Ich möchte eigentlich eine kleine schleife, die überprüft ob ein bestimmes (oder mehrere) Programm läuft - wenn nicht soll er es starten.

Komischerweise geht das nur wenn ich die Programme im Hintergrund ausführe:

Code: (dl )

#!/usr/bin/perl -w 

@programs=("gkrellm", "xclock");

$SIG{'CHLD'} = sub { wait(); };

while (1) {

	# running programs	
	foreach $p (@programs) {
		if (system("pidof $p >/dev/null 2>&1") != 0) { 
			 $retval=fork(); if ($retval == 0) { exec "$p &"; exit; }
			}
			
		
			
	}
sleep(1);
}

wenn ich das "&" hinter "exec "$p &" weglasse gehts nicht mehr - dann wartet mein Programm auf exec.

Weiß jemand warum?

Gruss,
quetzal

ptk

2004-05-18 16:16

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Dein CHLD-Handler sieht nicht richtig aus. Besser ist wahrscheinlich waitpid(-1, WNOHANG).

quetzalcoatl

2004-05-18 16:25

User since
2004-04-01
51 Artikel
BenutzerIn
[default_avatar]

super!! Vielen Dank! das war's!

Mann!! ich liebe dieses Forum! :)

Gruss,
quetzal

View all threads created 2004-05-18 15:59.