Hilfe mit flock() ganz ganz WICHTIG: Filehandle "merken" (Allgemeines zu Perl)

[thread]6313[/thread]

Hilfe mit flock() ganz ganz WICHTIG: Filehandle "merken"

Gast Gast

2004-06-06 16:47

Hallo!
ich habe folgendes problem:
ich habe zwei methoden:

Code: (dl )

sub readFile{
         my $file=shift;
         open(FILE, "<$file");
         my @array=<FILE>
         chomp(@array);
         return @array;
}
sub writeFile{
        my $file=shift;
        my $arrayPointer=shift;
        open(FILE, ">$file");
        print FILE join("\n" , @{$arrayPointer});
        close FILE;
}

nun will ich dass diese Datei in der zwischenzeit gesperrt ist, das Problem ist jedoch, dass ich die Methoden für mehr als ein File gleichzeitig verwenden will!
In etwa so:

Code: (dl )

my @array1=readFile("../test.txt");
do something with @array1;
my @array2=readFile("../test2.txt");
do someting with @array2, eventuell mit @array1;
writeFile("../test2.txt, \@array2);
writeFile("../test1.txt, \@array1);

test.txt soll solange gesperrt bleiben bis text2.txt fertig ist.
Gruss

Bearbeitet von Crian: Code-Tags eingefügt\n\n

Gast Gast

2004-06-06 17:10

Verwende eine leere Text-Datei als Semaphore.
Will sagen: setze vor jedem Zugriff auf die operativen Dateien, einen Lock auf die leere Text-Datei und gib den Lock erst dann frei wenn die Arbeit an den operativen Dateien beendet ist.

alexus-777

2004-06-07 16:03

User since
2004-04-13
121 Artikel
BenutzerIn
[default_avatar]

Code: (dl )

use Fcntl qw(:flock);
open(FH, "+<", $path);
flock(FH, LOCK_EX);

#Datei aktualisieren

close(FH);

viel Glück
Gruß Alexander\n\n

View all threads created 2004-06-06 16:47.