I have a code block ...

$cmd = "find $audit_dir -mtime +$days_to_keep -exec rm {} \\;";

unless(open(CMD, "$cmd |")){
$msg = "Error command : $cmd \n\n";
print_log $lgh,"$msg",1;
exit 1;
}

print_log $lgh, "Deleting physical files with Command : $cmd ", 1 if verbose;

while ($line=<CMD>) {
print_log $lgh, "Physical files older than $days_to_keep deleted from $audit_dir", 1 if $verbose;
}


after it executes the print_log , it's not going inside the while loop ..

what am I missing here ?

Thanks

turn on warnings and rerun your code:

use warnings;

might help point out some problems in your code

If the find command doesn't print anything, you obviously won't be getting any input on the <CMD> handle. (Why would you want to print the log message once per output line if there were many lines of output, anyway?)

I guess you're trying to divine the exit status of the find command; the close should tell you that, or simply use system instead of open