Flock unter W95 ignorieren?

[Marko Schilde]

Hi,

Ich arbeite immer noch an diesem Datenbank-Script ... und bin mal wieder auf ein Problem gestoßen. Dieses Script ist für den Einsatz auf einem Unix-Server gedacht, weshalb die Verwendung von flock() eigentlich kein Problem wäre, ABER ... ich teste dieses Programm nun mal unter W95, was derlei Funktionen nicht kennt und folglich mein gesamtes Script ignoriert :-(

Gibt es vielleicht irgendeine Möglichkeit, das zu umgehen, so in der Art von if ($ENV{'betriebssystem'} != Windows&Co) {flock (FH,2)} oder (noch besser :-) if (flock () is supported) {do something}...

Kann mir jemand diese Statements in Perl übersetzen? Please...

TIA, Marko

[Beat Strasser]

Hallo

Gibt es vielleicht irgendeine Möglichkeit, das zu umgehen, so in der Art von if ($ENV{'betriebssystem'} != Windows&Co) {flock (FH,2)} oder (noch besser :-) if (flock () is supported) {do something}...

Vielleicht funktioniert das:

$LOCK_EX = 2;
  $LOCK_UN = 8;
  ($0 =~ /\/) ? $db_use_flock = 0 : $db_use_flock = 1;
  
  #...
  
  flock(FILE, $LOCK_EX)  if($db_use_flock);

Gruss,
Beat