Nested IF statements

[lpollock]

I'm really new to PERL so forgive me if this is a stupid question. I'm trying to loop through a directory and test each file for two different criteria before I print any file name matching those criteria to a txt file.

The criteria are that it cannot be a directory, and it be older than X number of days. The code I have below will catch the mod date just fine, but it only finds and excludes the first directory it encounters.

foreach (readdir(DIR)) {
$mod = -M "$osapi/$_";
if (!(-d $_)){
if ($mod >= 1) {
print LOG "$osapi/$_\n";
}
}
}

Any help would be greatly appreciated.

Lane

 

[lpollock]

Never mind. I figured this out.

Thanks

 

[PaulTEG]

lpollock,

sorted, so post your solution

--Paul

 

[lpollock]

Instead of testing to see if the variable was not a directory

if (!(-d $_)){

I just tested to verify that it was a file.

foreach (readdir(OSDIR)) {
$mod1 = -M "$osapi/$_";
if (-f "$osapi/$_"){
if ($mod1 >= 1) {
print OSLOG "$osapi/$_\n";
}
}
}

I'm using this code to build a txt file that I can feed to winrar to archive old log files.

 

[mikevh]

Your original code would have been okay, too, if you'd qualified the file name, i.e
if (!(-d "$osapi/$_")){