Wie sperre ich eine Datei (locking)?

Problem

Lösung

# konstanten LOCK_EX, SEEK_SET importieren
use Fcntl qw(:seek :flock);

# dateiname
my $counter = "counter";

# Datei zum Lesen und Schreiben öffnen
open my $lock, '+<', $counter
   or die "Konnte '$counter' nicht öffnen: $!";

# exklusiv sperren
flock $lock, LOCK_EX;

# counter auslesen
chomp(my $num = <$lock>);

$num++;

# an den anfang der datei springen
seek $lock, 0, SEEK_SET;

# datei auf größe 0 zurücksetzen
truncate $lock, 0;

# neuen wert reinschreiben
print $lock "$num\n";

# schließen
close $lock;


# ---------- ohne kommentare

use Fcntl qw(:seek :flock);
my $counter = "counter";
open my $lock, '+<', $counter
   or die "Konnte '$counter' nicht öffnen: $!";
flock $lock, LOCK_EX;
chomp(my $num = <$lock>);
$num++;
seek $lock, 0, SEEK_SET;
truncate $lock, 0;
print $lock "$num\n";
close $lock;

Kurze Liste der Konstanten

LOCK_SH: Shared Lock

LOCK_EX: Exclusiver Lock

LOCK_NB: Nicht blockierender Lock

if (flock FILEHANDLE, LOCK_EX | LOCK_NB) {
 # prima
}
else {
 # kein lock, Plan B
}

LOCK_UN: Lock aufheben

Literatur

Ergänzungen, Kommentare

---+++ Main.??? - 14 Jul 2003 - Betreff