Delete Empty Directory

[ajay m]

hi, i am new to perl
I am looking for a simple script to delete non empty folder.
Remove Directory and File(s)
plz help me...

[KevinADC]

perldoc File::Path module

[savanm]

Hi,

Use the following Code

use File::Find;
finddepth(sub{r mdir},'.')

That's it

[savanm]

Hi,
Sorry the above code will delete the Empty Folders

[ajay m]

Thank you sir

[antofthy]

KevinADC....

File::Path removes everything. Not just non-empty directories.

savanm...

While it is the inverted answer, you are running rmdir on EVERY filename, not just directories or even empty directories. Though That is quite valid as it does the required tests.

Now to try and answer for real...

To try and remove directories that are NOT empty, is tricky. A directory with a directory is technically not-empty. So by that criteria, you want to remove any directory that is more than 2 levels deep! That does not sound right.

So what exactly do you want?

Delete directories that contain files? Or just...
Delete all files and leave just the directory structure?

Basically what do you define as being not-empty?