Help for this page

Select Code to Download


  1. or download this
    map {$dirth->{$_} = (-d "$dir/$_" ? &dirTreeHash("$dir/$_") : '')} @fi
+les;
  2. or download this
    map {$dirth->{$_} = (-d "$dir/$_" ? &dirTreeHash("$dir/$_") : '') unle
+ss (-l "$dir/$_")} @files;