>> Do not reinvent wheel :). Use standart Perl modules. >> >> use File::Path; >> rmtree([$dir]); >> >> See File::Path docs for more info. >>
KGM> Correct me if I'm wrong, but this is what the OP *didn't* want to do KGM> (taken from File::Path doc): KGM> "All of the files and directories KGM> below each root, as well as the roots themselves, KGM> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ KGM> will be deleted." Ooops. My fault - I didn't noticed requirement do not touch root itself. -- -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- | Ilya Martynov (http://martynov.org/) | | GnuPG 1024D/323BDEE6 D7F7 561E 4C1D 8A15 8E80 E4AE BE1A 53EB 323B DEE6 | | AGAVA Software Company (http://www.agava.com/) | -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-