On 08/08/02 18:39, Bart Lateur at [EMAIL PROTECTED] wrote:
> On Thu, 08 Aug 2002 17:17:12 -0300, Ricardo Montiel wrote:
>> [...]
>> }, 'Hard Disk:Support:); # thanks merlyn
>
> But still you forgot a closing quote o,n the path.
Yup, after editing a long path, I forgot the closing quote.
>> all the sub-level folders - either empty or with files inside them - are
>> deleted, except the top-level folder ('Support:'). Bear in mind that I tried
>> to make use of FSpDelete as well, but I get the same unwanted result.
>>
>> What am I doing wrong?
>
> For the directory itself, the callback is called with $_ set to "." on
> Unixy/Win systems (likely with ":" on a Mac -- ?). That's the only
> directory for which that is the case. rmdir "." won't ever work. I thik
> that if you'd do
>
> rmdir $File::Find::name;
>
> likely it will work, because now it's no longer an exception: for all
> directories, rmdir is called with the full path. I *think* it will work.
Thanks Bart, unfortunately it didn't work. When I tried:
#!perl -w
use strict;
use File::Find;
finddepth (sub {
print $File::Find::name, "\n";
rmdir $File::Find::name;
}, 'Hard Disk:Support:');
---> output:
Hard Disk:Support:untitled folder 1
Hard Disk:Support:untitled folder:MAC TIPS 'N' TRICKS
Hard Disk:Support:untitled folder
Hard Disk:Support:
both folders - untitled folder 1 and untitled folder (containing the 'MAC
TIPS 'N' TRICKS' file) - are deleted.
Best regards,
-- Ricardo
