Help for this page

Select Code to Download


  1. or download this
    X:\>perl -MFile::Find -le "sub process_file{print $File::Find::name if
+ -f };find (\&process_file,'test with whitespace')"
  2. or download this
    use File::Find;
print "Enter your root directory\n";
...
print $File::Find::name if -f ;
}
find (\&process_file,$root);
  3. or download this
    %> a.pl
Enter your root directory:
D:\DBS
%> Can't state D:\DBS