Re: Close command not being honored

On Windows, you cannot delete, rename or do much of anything with a file if a filehandle to that file is open.

In your first line of code, you open a filehandle to your tempfile when calling

my ($fh, $filename) = tempfile( DIR => $self->{Temp_Dir} );
[download]

You then never close $fh, which makes Windows deny your request to delete $filename.

Simply close the filehandle if you only want the name.

Comment on Re: Close command not being honored Select or Download Code

Replies are listed 'Best First'.
Re^2: Close command not being honored (FILE_SHARE_DELETE) by tye (Sage) on Feb 22, 2014 at 01:34 UTC
That is only the default behavior [when using one of the Unixy wrappers like fopen()]. You can use Win32API::File to open a file in a way that allows you to rename or delete it while you still have it open. - tye	[reply]
Re^2: Close command not being honored by velocitygirl13 (Novice) on Feb 21, 2014 at 15:50 UTC
Thanks Corion. I didn't write this script. I really don't know anything about Perl to be honest with you. However, I was under the impression that this command was to close the filehandle: $SNF_fh->close \|\| If not, what does that command do? Also, What is the correct line of code to use to close the filehandle that was open? Again, thank you so much for your response.	[reply]
Re^3: Close command not being honored by Corion (Patriarch) on Feb 21, 2014 at 16:01 UTC
The code `$SNF_fh->close` [download] closes the filehandle `$SNF_fh`. But further up, the call to `tempfile` returns a filehandle that you store in the variable `$fh`. You never show where `$fh` is closed. If you are not interested in the filehandle and only in the name of the tempfile, immediately closing the filehandle returning from it is the sanest approach: `my ($fh, $filename) = tempfile( DIR => $self->{Temp_Dir} ); close $fh; # we only want the filename` [download]	[reply] [d/l] [select]
Re^4: Close command not being honored by velocitygirl13 (Novice) on Feb 21, 2014 at 16:17 UTC
Corion.. I can't thank you enough! That fixed my issue! You are wonderful!! I have been working on this for months with no luck. That was such a simple fix! Like I explained, I don't know much about Perl at all. Thanks to you, I can stop pulling my hair out.	[reply]
Re^4: Close command not being honored by velocitygirl13 (Novice) on Feb 28, 2014 at 15:09 UTC
Corion, on the day you gave me this answer, it resolved my issue. I replied back to you, thanking you profusely for your help. I see that my reply never was posted so I wanted to take this time to make sure that you saw my "thank you!!". I had been struggling with that problem for a few weeks and you solved it in 3 seconds. That is why you are a PerlMonk and I'm a confused user. Again, I appreciate the help more than you know. Sincerely, thank you.	[reply]