Thread Perl einen sicheren Counter erstellen (24 answers)
Opened by Johannes_Schuller at 2012-06-06 10:27

bianca
 2012-06-06 11:31
#158786 #158786
User since
2009-09-13
7016 Artikel
BenutzerIn

user image
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

View full thread Perl einen sicheren Counter erstellen