- or download this
if (($_ ne ".") && ($_ ne "..") && (! -l $_)) {
- or download this
eg: running this script on /usr/local/html/users/me
returns
...
'html' => {
'me' => {
etc,etc. Before the real search begins.
- or download this
@elements = split("/" , substr($File::Find::name, length($ARGV[0])));