Recursive directory removing?

[MM]

Hi,

Can anyone give me some hint on how I in a perl script can remove all
directories, subdirectories, and files (recursively) in a specific directory
that I state? Pretty much like the 'rm -fR' system command, except that I do
not want to use the 'system' command. I looked at the 'unlink' function, but
I could not see how this can be used to remove subdirectories as well.

Many thanks in advance,

MM

 

[Jürgen Exner]

Can anyone give me some hint on how I in a perl script can remove all
directories, subdirectories, and files (recursively) in a specific
directory that I state?

If you want to do it the hard way:
perldoc File::Find
and do a depth-first pass.

If you want to do it the very hard way
perldoc -f opendir
perldoc -f readdir
perldoc -f -d

If you want to do it the easy way:
perldoc File:ath

Pretty much like the 'rm -fR' system command,
except that I do not want to use the 'system' command. I looked at
the 'unlink' function, but I could not see how this can be used to
remove subdirectories as well.

perldoc -f rmdir


jue

 

[Gary E. Ansok]

Can anyone give me some hint on how I in a perl script can remove all
directories, subdirectories, and files (recursively) in a specific directory
that I state? Pretty much like the 'rm -fR' system command, except that I do
not want to use the 'system' command. I looked at the 'unlink' function, but
I could not see how this can be used to remove subdirectories as well.

Check out the rmtree() function in the File:ath module (which you
should already have as part of the Perl installation).

perldoc File:ath

-- Gary Ansok