Re: perl question

[Ilya Martynov <m_ilya@agava.com>]

>> 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/)                          |
 -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-