Filelock mit Config::IniFiles

[K@rl]

Hallo Reinhard,

irgendwie versteh' ich Dein Problem nicht - weil ja Dein Posting bereits die Lösung enthält:

open (FILE, "file.ext");
  flock(FILE,2);
    #do your stuff
  close(FILE);

$cfg = Config::IniFiles->new( -file => "/path/configfile.ini" );
    # Daten lesen und schreiben
  $cfg->RewriteConfig();

=
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

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;-)

Ach ja: Alles unter Windows.

Windows oder WinDOS (also Win95 & Co.) + mit welcher Perl Version? -- Ich frage nur, weil WinDOS sicher keine geeignete Multiuserumgebung ist und in ActiveState Perl < 5.6 ein flock() ohnehin nicht ging.

Mit einem herzlichen RTFM!
     K@rl