Thread Perl einen sicheren Counter erstellen
(24 answers)
Opened by Johannes_Schuller at 2012-06-06 10:27
Du kannst das Script warten lassen.
zum Beispiel so: Code (perl): (dl
)
1 2 3 4 5 6 my $start = time; my $flock = flock (FH,LOCK_EX|LOCK_NB); while (!$flock && time-$start < 3) { sleep 1; $flock = flock (FH,LOCK_EX|LOCK_NB); } Die Konstanten kannst du aus use Fcntl qw (:DEFAULT :flock); importieren. Last edited: 2012-06-06 11:32:25 +0200 (CEST) 10 print "Hallo"
20 goto 10 |