Dotaz: Perl - kontrola běžícího procesu

[Martin]

Lze udělat toto nějak jednoduše v Perlu?

#proces jeste bezi

while [ -n "`pidof RS2.sh`" ]; do

a=1

done

Strýček Google mě moc nepomohl.

Díky

---

---

Odpovědi

[ph0enix]

Napriklad temer stejne jako jsi to napsal v shellu. Nevim sice co presne pidof vraci, ale predpokladam ze pouze cislo. Pokud ano, je vraceny PID v promenne $1 (pro pripad, ze by byl potreba)

while (`pidof RS2.sh` =~ /^(\d+)/) {
     # delej dal co je potreba, nebo jen cekej...
     sleep 1
 }

[Xerces]

Nebylo by lepší si tím .sh skriptem vytvořit nějaký soubor a před ukončením .sh skriptu ten soubor smazat a v té smyččce testovat existenci toho souboru? Obdobně jako run soubory u daemonů?

[Martin]

Tak jsem to nakonec udělal takhle. Sice to je asi prasárna ale funguje to.

V bashi uložím PID:

echo $$ > /home/tmp/RS.pid

V perlu testuji:

while (kill 0, `head -1 /home/tmp/RS.pid` =~ /^(\d+)/) { print "Proces bezi.\n"; sleep 1 }

print "Proces nebezi.\n";

[saf]

Takhle je to asi lepší.

$pid = `head -1 /home/tmp/RS.pid`;

# while (kill 0, $pid =~ /^(\d+)/) { print "Proces bezi.\n"; sleep 1; } print "Proces nebezi.\n";

[Kit]

Nedávno jsem hledal něco podobného pro shell a našel jsem příkaz wait. Takovým nekonečným cyklům se vyhýbám velkým obloukem, protože nic nedělají a jen zbytečně zatěžují procesor.

[l4m4]

Běžný postup sledování nepotomka je 1. zjistit pid (jednou na začátku) 2. kill(pid, 0) a zkontrolovat návratovou hodnotu. Pokud OK, tak proces běží. Race conditions je to celé prolezlé, ale to je i tvůj původní postup, takže to asi nevadí.