Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
    print "Didn't find $File::Find::name\n";
  }
}
  2. or download this
    Found ..
Didn't find ../Ook.pl
...
Didn't find ../tk
Found ../tk/tkTest.pl
Found ../tk/tkTest.vpd
  3. or download this
    find ({wanted => \&wanted, no_chdir => 1}, '..');