Re: Check whether the file is in use by an other user

IIRC Windows locks the file when opened. You may be able to check the file lock state, maybe something like this (I have no windows box to test):

open my $fh, "/some/file" or die "can't open!";

# try/catch file locking
eval { flock $fh, 'LOCK_EX' or die "can't lock!" };
if ( $@) {
    warn "open file!" && exit;
}
[download]

Comment on Re: Check whether the file is in use by an other user Download Code

Replies are listed 'Best First'.
Re^2: Check whether the file is in use by an other user by fish (Novice) on Jul 30, 2009 at 12:42 UTC
Thanks for your response. I tried your code and it's not bad but not exactly what I expected. Instead of showing an error-message if the file is opened the program waits until the file is getting closed. That is not bad, but kind of useless for my problem. I am sure we are pretty near to a solution, so can somebody tell me how it works - please ;) Best regards, - fish	[reply]
Re^3: Check whether the file is in use by an other user by wazoox (Prior) on Jul 30, 2009 at 21:09 UTC
See the flock documentation to check the various (and numerous) available flags, there is probably one of them that'll do what you want :) BTW you really should have posted this in its own thread, because it's a problem completely unrelated to the scope of this tutorial.	[reply]
Re^3: Check whether the file is in use by an other user by fish (Novice) on Jul 31, 2009 at 05:51 UTC
For those of you who are interessted in the topic. I solved the problem by myself. `sysopen(FH, $file, O_WRONLY\|O_EXCL) or die $!;` works fine for me and it even works if the file is opened via a shared folder. Finally I want to apologize for my offtopic-postings. I thougt the "fileInUse"-check would be possible with a Win32::OLE-function and because of that I posted here and did not create a new thread. I hope I will do better in future. Best regards from sunny Germany.	[reply] [d/l]


Your skill will accomplish what the force of many cannot
	PerlMonks