Filelock mit Config::IniFiles

[Reinhard Doberstein]

open (FILE, "file.ext");
flock(FILE,2);
#do your stuff
$cfg = Config::IniFiles->new( -file => *FILE );

Daten lesen und schreiben

$cfg->RewriteConfig();
close(FILE); # falls nach RewriteConfig() noch notwendig

Aaaaa.

Denn was lesen wir in der POD von Config::IniFiles zum -file Argument? .. na?:

-file filename

Specifies a file to load the parameters from. This 'file' may actually be any of the following things:
  1) a simple filehandle, such as STDIN
  2) a filehandle glob, such as *CONFIG
  3) a reference to a glob, such as \*CONFIG
  4) an IO::File object
  5) the pathname of a file

Also statt Variante 5) Variante 2) .. oder 1) oder 3) oder 4) .. man könnte auch sagen: alles *außer* 5;-)

Danke, mir war nicht klar das das so geht.

Ach ja: Alles unter Windows.

Windows oder WinDOS (also Win95 & Co.) + mit welcher Perl Version?

NT4 mit ActiveState Perl 5.005

Ich frage nur, weil WinDOS sicher keine geeignete Multiuserumgebung ist und in ActiveState Perl < 5.6 ein flock() ohnehin nicht ging.

Dann werd ich wohl updaten. Das sollte kein Problem sein. Z.t. werden die Prozesse über den Webserver als CGIs angesprochen. Daher ist keine Aussage über das Zeitverhalten möglich, daher das Filelocking. Multiuser ist das aber daher nicht wirklich.

Mit einem herzlichen RTFM!

Jaja, lesen sollte man können :-/

By
Reinhard