in reply to Unlink works in windows, not in Linux?
Honestly, I don't think that the file is not deleted, but you still don't the error message. I suggest you replace
byunlink $file or die "\nCould not delete the backup $file: $!";
print FILE "Now going to delete $file\n"; if(unlink $file) { print FILE "$file has been removed (says 'unlink')\n"; if(-e $file) { print FILE "Surprise, surprise! $file is still here\n"; } } else { print FILE "'unlink' says: $!\n"; if(-e $file) { print FILE "And indeed, we still see $file\n"; } else { print FILE "A miracle occured! $file is gone!\n"; } }
--
Ronald Fischer <ynnor@mm.st>
Ronald Fischer <ynnor@mm.st>
|
---|
In Section
Seekers of Perl Wisdom