Help for this page

Select Code to Download


  1. or download this
    walktree('d:/perl');

...
    -d && walktree($_);
  }
}
  2. or download this
      for (grep(-d, glob("$_[0]/*"))) {
    walktree($_);
  }

  walktree($_) for (grep(-d, glob("$_[0]/*")));