non utilizzare il Perl in Perl, esso ottiene troppo complicato con i caratteri di evasione di tempi di n, Perl di uso direttamente!
aprir (LIMA, “/v/region/na/appl/phoenixfunding/etl/data/qa/SessLogs/$wf_log„);
mentre () {
chomp;
dopo se _ di $! ~ /Inserted/; # collega fino a trovare una linea con “inserito„, simula “il grep in circuito„;
se (/Applied: +)/) (\ d+ {
se ($1) {
la stampa “sì, applicato è maggior di 0 \ n„;
}
altrimenti {
stampare “no, applicato è 0 \ n„;
}
}
altrimenti {
la stampa “là è qui applicato \ n del campo„;
}
ultimo; # questo rompe il ciclo dopo il primo ciclo, simulante “la testa -1„
}
fine (LIMA);