Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
use File::Find;

find( sub { print "$File::Find::name \n" if -d }, '/tmp/a' );
  2. or download this
    /tmp/a
/tmp/a/b
...
/tmp/a/b/d/g/h
/tmp/a/b/d/g/i
/tmp/a/b/k
  3. or download this
    /tmp/a/b/c/e
/tmp/a/b/d/g/h
/tmp/a/b/d/g/i
/tmp/a/b/k