What would be the best way to search for files from sub directries within sub directories? Im writing a script to find "*.sas" files and open them to search for keywords(@words). Some home directories have a variety of number of sub directories within each sub directories. Hope Im not confusing anyone, if I am please let me know. Below is the code Im using which will only look for a sub DIR within a DIR. How would I make it so that it knows to go into more sub directories if they exist? Oh and I cant use File:Find because on running it on the server and dont have SA permissions! Thanks in advance for all your help!!! Fue

#!/usr/bin/perl

# Open Directory to scan
die("Cannot open /cdw/home_dir/.")
    unless(opendir(DIR, "/cdw/home_dir/"));

# Open file to print files    
die("Connot open /cdw/home_dir/s006258/CHECK_SAS/cant_open_file.txt.")
    unless(open(OUTFILE, ">/cdw/home_dir/s006258/CHECK_SAS/cant_open_f
+ile.txt"));    

# Open file to print words that exists in file    
die("Connot open /cdw/home_dir/s006258/CHECK_SAS/word_exist_list.txt."
+)
    unless(open(EXIST, ">/cdw/home_dir/s006258/CHECK_SAS/word_exist_li
+st.txt"));        

# List of words to search for
@words = ("\$BIDI", "\%ARMCONV", "\%CENTROID" , "\%MAPLABEL" , "ALLPER
+M", "ANYALNUM", "ANYALPHA", "ANYCNTRL", "ANYDIGIT",
"ANYFIRST", "ANYGRAPH", "ANYLOWER", "ANYNAME", "ANYPRINT", "ANYPUNCT",
+ "ANYSPACE", "ANYUPPER", "ANYXDIGIT", "ARMAGENT", 
"ARMLOC", "ARMSUBSYS", "BETA", "BOUNDS", "BYSORTED", "CAT", "CATS", "C
+ATT", "CATX", "CEILZ", "CHTML", "CLONE", "COLNAME", "COLUMNS", 
"COMPARE", "COMPAREREG1", "COMPCOST", "COMPGED", "COMPLEV", "COUNTC", 
+"CPUCOUNT", "CSVALL", "CUMIPMT", "CUMPRINC" , "DATECOPY", 
"DISTANCE", "DMSSYNCHK", "DOCBOOK", "DTRESET", "ECTREND", "EMAILAUTHPR
+OTOCOL", "EMAILID", "EMAILPW", "ENCODING", "ENTROPY", 
"ERRORBYABEND", "FINDC", "FLOORZ", "FONTSLOC", "FORCE", "FRONTREF", "G
+AREABAR", "GBARLINE", "HELPENCMD", "HTMLCSS", "IBUFSIZE",
"IMODE", "INTCINDEX" , "INTCYCLE" , "INTFMT" , "INTINDEX" , "INTSEA" ,
+ "INTZ", "IPMT" , "IQR", "ITPRINT", "KCVT", "LENGTHC", "LENGTHM",
"LENGTHN", "LISTREG", "LOGBETA", "LOGPARM", "MAD", "MAPIMPORT" , "MARK
+UP", "MAXITER", "METAID", "METAPASS", "METAPORT", "METAPROTOCOL",
"METAREPOSITORY", "METASERVER", "METAUSER", "MODZ", "NLITERAL", "NOPRO
+MAXNORM", "NOTALNUM", "NOTALPHA", "NOTCNTRL", "NOTDIGIT",
"NOTFIRST", "NOTGRAPH", "NOTHREADS", "NOTLOWER", "NOTNAME", "NOTOP", "
+NOTPRINT", "NOTPUNCT", "NOTSPACE", "NOUPPER", "OUTLIER",
"PAGEBREAKINITIAL", "PCTL", "PMT" , "PPMT" , "PRINTERR", "PRXCHANGE", 
+"PRXDEBUG", "PRXFREE", "PRXMATCH", "PRXNEXT", "PRXPAREN",
"PRXPARSE", "PRXPOSN", "PRXSUBSTR", "PUTLOG", "QUOTELENMAX", "RANPERK"
+, "RANPERM", "ROBUSTREG", "ROLE", "ROUNDE", "ROUNDZ", "SCANQ",
"SMM", "SORTEQUALS", "SORTSEQ", "SORTSIZE", "STDIZE", "STREAMINIT", "S
+URVEYFREQ", "SURVIVAL", "SWFONTRENDER", "SYLK", "TAGSET", 
"TERMSTMT", "TEXTURELOC", "THREADS", "TOL", "TOOLSMENU", "UCM", "USERI
+NPUT" , "UTILLOC", "UTOMDL", "V6CREATEUPDATE", "VALIDFMTNAME", "VIEWM
+ENU", 
"VNEXT", "VVALUE", "VVALUEX", "WML");    

print "@words";
    
# Reads in each Directory    
for my $dir (readdir(DIR)) {
    #print "$dir\n";
    if ($dir eq "s006258") {
    # Open each Directory to scan for sas files
    print("Cannot open /cdw/home_dir/$dir \n")
        unless(opendir(HOME, "/cdw/home_dir/$dir"));
        for my $file (readdir(HOME)) {
            #Scans for .sas files    &sas_scan()
            if ($file =~ /.sas$/) {    
                print "$file SAS\n";
                #Prints .sas files that cannot be opened into OUTFILE
                print OUTFILE ("Cannot open the file /cdw/home_dir/$di
+r/$file \n")
                    unless(open(INFILE, "/cdw/home_dir/$dir/$file"));
                while ($read = <INFILE>) {
                    for ($i = 0; $i < @words; $i++) {
                        if ($read =~ /$word[$i]/) {
                            print EXIST "The $word[$i] exists in /cdw/
+home_dir/$dir/$file \n";
                            print EXIST "on line: $read\n\n";
                        }
                    }
                }            
            }
            else {
                # Open each Directory to scan for sas files
                print OUTFILE ("Cannot open dir /cdw/home_dir/$file \n
+")
                    unless(opendir(DIR, "/cdw/home_dir/$file")); 
                    for my $file (readdir(HOME)) {
                        #Scans for .sas files    &sas_scan()
                        if ($file =~ /.sas$/) {    
                            print "$file SAS\n";
                            #Prints .sas files that cannot be opened i
+nto OUTFILE
                            print OUTFILE ("Cannot open the file /cdw/
+home_dir/$dir/$file \n")
                                unless(open(INFILE, "/cdw/home_dir/$di
+r/$file"));
                            while ($read = <INFILE>) {
                                for ($i = 0; $i < @words; $i++) {
                                    if ($read =~ /$word[$i]/) {
                                        print EXIST "The $word[$i] exi
+sts in /cdw/home_dir/$dir/$file \n";
                                        print EXIST "on line: $read\n\
+n";
                                    }
                                }
                            }            
                        }
                    }
            }
        }                
    }
}
[download]