não usar o Perl em Perl, ele começ demasiado complicado com caráteres de escape dos tempos de n, Perl do uso diretamente!
abrir (LIMA, “/v/region/na/appl/phoenixfunding/etl/data/qa/SessLogs/$wf_log”);
quando () {
chomp;
em seguida se _ de $! ~ /Inserted/; # dá laços até que uma linha com “introduzido” esteja encontrada, simula no “grep”;
se (/Applied: +) (\ d+/) {
se ($1) {
a cópia “sim, aplicado é maior de 0 \ n”;
}
mais {
imprimir o “No., aplicado é 0 \ n”;
}
}
mais {
a cópia “lá não é nenhum aqui aplicado do campo \ n”;
}
último; # isto quebra o laço após o primeiro laço, simulando a “cabeça -1”
}
fim (LIMA);