File::Find limit to current directory

[Darrell Snedecor]

How can I keep file::find from descending into subfolders of
$DataFolders_Location?  I can't get prune to work.

        sub DelMiscFiles {
                if(m/
                         EDWin\d{3}.ver$
                        |safe.{16,25}$
                        |.+\.stru$
                        |ffexport.exe$
                        |sendcopydata\d{4}\.zip$
                        |eddata\.zip$
                        |edwin\.\d$
                        |u142\..{3}$
                        |u313\..{3}$
                        |prev142.txt$
                        |prev313.txt$
                        |.*.bak$
                        |.*.tbk$
                        |_[A-Za-z1-9]{7}$
                        |EDWin_Whats_New.exe$
                        |edwin_2005.chm$
                        |foxuser\....$
                        |.+\.prn$
                        /ix){
                        unlink $File::Find::name;
                }
                #if(-d $File::Find::name){
                #       $File::Find::prune = 1; # do not descend the
directory tree
                #}
        }
        find(\&DelMiscFiles, $DataFolders_Location  );


 
Best Regards
Darrell Snedecor
Director
Harrisburg Project
800-635-5274  618-253-8504
 


_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs