¡no utilizar el Perl en Perl, él consigue demasiado complicado con los carácteres de escape de los tiempos de n, Perl del uso directo!
abrirse (ARCHIVO, “/v/region/na/appl/phoenixfunding/etl/data/qa/SessLogs/$wf_log”);
mientras que () {
chomp;
¡después si _ de $! ~ /Inserted/; # coloca hasta que una línea con “insertado” se encuentre, simula el “grep”;
si (/Applied: +)/) (\ d+ {
si ($1) {
la impresión “sí, aplicado es mayor de 0 \ n”;
}
{
imprimir “no, aplicado es 0 \ n”;
}
}
{
la impresión “allí no es ninguÌn aquí aplicado \ n del campo”;
}
último; # esto rompe el lazo después del primer lazo, simulando la “cabeza -1”
}
cierre (ARCHIVO);