File is getting Locked. Pls help

[mailtofinny]

Hi
This is my first post to this forum.

I am struck up with a problem.

We have a perl script which deals with creation/deletion of files. This perl script is trigerred through a java webservice. But at times the files are getting locked by a process. We are not able to delete the files. the error message is " Cannot accoss the file <file name> because it is used by another process"

So pls help to resolve.

Note: When the restart the tomcat server which hosts the webservice, it is deleting the file. In my code I am closing the file handles correctly.

[numberwhun]

Hi
This is my first post to this forum.

I am struck up with a problem.

We have a perl script which deals with creation/deletion of files. This perl script is trigerred through a java webservice. But at times the files are getting locked by a process. We are not able to delete the files. the error message is " Cannot accoss the file <file name> because it is used by another process"

So pls help to resolve.

Note: When the restart the tomcat server which hosts the webservice, it is deleting the file. In my code I am closing the file handles correctly.

Are you able to determine what is using the files you are trying to delete? Stopping the access to the files will help.

Regards,

Jeff

[prn]

Are you able to determine what is using the files you are trying to delete? Stopping the access to the files will help.

On a *ix system, at least, you can probably determine what is locking the file with lsof. I'd suggest logging that information before you attempt to delete the file. Something like:

system ("lsof $filename >>$log");

ought to work for you.

If your system does not have lsof on it (most systems seem not to have it in the default installation) you may need to install it. If you are not the sysadmin, you'll need to get the sysadmin to do it as it requires privileges. However, lsof is something that every sysadmin ought to have in his/her bag of tricks. It's great, it's portable, and it is indispensible for situations like this. I've used it on Solaris and Linux, it is also available for just about any other flavor of unix or unix-like system.

Best Regards,
Paul

[KevinADC]

Maybe make deleting the file a recursive function and give it so many attempts before finally giving up.

sub delete {
   my $file = shift;
   my $n = shift || 1;
   my $error = shift  || 'unknown error'; 
   do_some_error("Can't delete $file: $error") if $n > 5;
   unless (unlink ($file)) {
      sleep (1); # sleeps for one second before trying again;
      delete($file,++$n,$!);
   }
}

Of course this is a work-around and may not work at all.

[mailtofinny]

Hi
Thanks for the reply. I will try it out and get back to you.

On a *ix system, at least, you can probably determine what is locking the file with lsof. I'd suggest logging that information before you attempt to delete the file. Something like:

system ("lsof $filename >>$log");

ought to work for you.

If your system does not have lsof on it (most systems seem not to have it in the default installation) you may need to install it. If you are not the sysadmin, you'll need to get the sysadmin to do it as it requires privileges. However, lsof is something that every sysadmin ought to have in his/her bag of tricks. It's great, it's portable, and it is indispensible for situations like this. I've used it on Solaris and Linux, it is also available for just about any other flavor of unix or unix-like system.

Best Regards,
Paul

[mailtofinny]

Hi Paul

I am using windows 2000. Do you suggest me any utility in Windows to find out which process has locked my file. I am facing the File locking problem in a production server. So it will be better if there are things already available in the OS (Not need of downloading any extra thing)

Thanks for your help.

Regards
Finny

On a *ix system, at least, you can probably determine what is locking the file with lsof. I'd suggest logging that information before you attempt to delete the file. Something like:

system ("lsof $filename >>$log");

ought to work for you.

If your system does not have lsof on it (most systems seem not to have it in the default installation) you may need to install it. If you are not the sysadmin, you'll need to get the sysadmin to do it as it requires privileges. However, lsof is something that every sysadmin ought to have in his/her bag of tricks. It's great, it's portable, and it is indispensible for situations like this. I've used it on Solaris and Linux, it is also available for just about any other flavor of unix or unix-like system.

Best Regards,
Paul

[KevinADC]

The file may just be open is the reason you can't delete it. Can we see the perl code?

[mailtofinny]

Hi
Thanks for the reply.

I am very sure that the file handlers are closed. I am closing the handlers at all cases. I have checked that multiple times.
(e.g)
open(STATUSLOG, ">>"$StatusFile );
print(STATUSLOG "COMPLETED" );
close(STATUSLOG );
Java webservice is invoking the perl scripts. It also does some operations with that file. I doubt whether java webservice is locking the file.

Inorder to confirm that, i need to find which is locking the file. That java code is not my code. Before pointing out my hand to others code, i am trying to have some valid point for me.

Thats why i have to find the process which has locked the file.

Regards
Finny

The file may just be open is the reason you can't delete it. Can we see the perl code?

[KevinADC]

You have not checked anything really, you assume the open/close functions are successful, try this and see if you get any error messages:

open(STATUSLOG,">>"$StatusFile) or die "Can't open $StatusFile: $!";
print STATUSLOG "COMPLETED";
close(STATUSLOG) or die "Can't close $StatusFile: $!";