Help for this page

Select Code to Download


  1. or download this
    my $current_abs_dir = "/path/to/opendir/directory";
while ($name = readdir(REP)) {
    $abs_name = "$current_abs_dir/$name";
    if (-M $abs_name >= 10) {
  2. or download this
       perldoc -f opendir

   perldoc -f readdir