Help for this page

Select Code to Download


  1. or download this
     $File::Find::prune = 1, return
  if $File::Find::name =~ m{^.:/System Volume Information$};
  2. or download this
    use File::Find;
my @drives = ( 'c:/', 'd:/' );
...
}, @drives );
End_F:
print "Extra files or directories checked by this method: $extras\n";
  3. or download this
    #!/usr/bin/perl -w
use strict;
...
    print "$_\n";
  }
}, @drives );