Thread Programmstatus zyklisch feststellen (3 answers)
Opened by Stevee at 2007-02-05 12:23

Stevee
 2007-02-05 12:23
#74003 #74003
User since
2006-10-17
5 Artikel
BenutzerIn
[default_avatar]
Hallo Freunde,
Ich möchte ein Skript erstellen, dass
a) eine bestimmte Aufgabe erledigt und
b) für die Dauer dieser Aufgabe Punkte auf dem Terminal ausgibt.

Mein bisherige Idee:
Ich schicke die Aufgabe "Schlafe 3 sek. und setze dann $x auf 1" mit fork in den Hintergrund.
Unmittelbar darauf werden so lange Punkte ausgegben, bis $x auf 1 gesetzt wird. Nur bekommt das meine while-Schleife nie mit. Die while-Schleife ist also endlos. Ich möchte aber, dass mein Skript nach 3s endet und in dieser Zeit ein Paar Punkte gemalt werden.

Hat jemand einen geschickteren Ansatz?

Hier mein bisheriger Versuch:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl
$| = 1;
$x = 0;

$pid1 = fork;
unless ($pid1)
{
sleep (3);
$x = 1;
exit;
};

while ($x == 0)
{
 print ".";
 select(undef, undef, undef, 0.02);
}


Edit: Code-Tags von betterworld.\n\n

<!--EDIT|betterworld|1170679353-->

View full thread Programmstatus zyklisch feststellen