unlink on win32 1

[Arion23]

Hi all,

I've written the following perl code to check if a temporary file is older than 0.01 days (about 15 minutes it works out) and if it is, to unlink/delete it.

I intend for this code to loop through all the files in a given directory, resulting in only the most recently created files are left.

Sample #1
foreach $drop_file (<files/*.*>) {
if( (-C $drop_file) >= 0.01 ) {
system(&quot;del $dropfile&quot; }
}
}

Sample #2
foreach $drop_file (<files/*.*>) {
if( (-C $drop_file) >= 0.01 ) {
unlink($drop_file); }
}
}

I've tried both the system(&quot;del...&quot and unlink methods, by neither seem to work...

Any thoughts?

 

[raider2001]

Both methods work for me on Win NT (perl 5.6.0). I tried both samples and they both work with the following setup. Perl script in a directory containing a sub-directory named files. This subdirectory contains some files. Maybe its not a problem with deleting, but a problem with file permissions, being in the right directory, or the files being in use. Try the following code to see if you can &quot;unlink&quot; at all.

$File = &quot;dummyfile&quot;;
open(F, &quot;>>$File&quot or die &quot;Can't open $File: $! \n&quot;;
print F &quot;This is a test \n&quot;;
close(F);
system(&quot;type $File&quot;
unlink($File);
system(&quot;type $File&quot;

You should get the following output:
This is a test
System cannot find the file specified

 

[Arion23]

Thanks for the info, it did turn out to be a permissions problem...