Eu tenho um bloco de código ...

$ cmd \u003d "find $ audit_dir-mtime + $ days_to_keep-exec rm () \ \";

unless (open (CMD, "$ cmd |")){
$ msg \u003d "Erro comando: cmd $ \ n \ n";
print_log $ lgh, "$ msg", 1;
exit 1;
)

print_log $ lgh, "Excluir arquivos físicos com Comando: $ cmd", 1 se verbose;

while ($ linha \u003d <CMD>) (
print_log $ lgh, "Physical arquivos com mais de $ days_to_keep suprimido a partir de $ audit_dir", 1 se $ verbose;
)


depois que executa a print_log, ele não vai dentro do ciclo while ..

o que estou em falta aqui?

Obrigado

Advertências e rerun ligar o seu código:

use warnings;

poderia ajudar a apontar alguns problemas no seu código

Se o encontrar comando não imprimir nada, obviamente você não vai estar recebendo qualquer entrada do <CMD> alça. (Por que você deseja imprimir o log mensagem uma vez por linha de saída se houvesse muitas linhas de produção, afinal?)

Acho que você está tentando divina a saída do estado encontrar comando, o fechar Deve dizer-lhe que, ou simplesmente usar sistema em vez de abrir