ne pas employer le Perl dans Perl, il obtient trop compliqué avec les caractères d'échappement de temps de n, Perl d'utilisation directement !
s'ouvrir (DOSSIER, « /v/region/na/appl/phoenixfunding/etl/data/qa/SessLogs/$wf_log ») ;
tandis que () {
chomp ;
après si _ de $ ! ~ /Inserted/ ; # fait une boucle jusqu'à ce qu'une ligne avec « inséré » soit trouvée, simule le « grep » ;
si (/Applied : +) (\ d+/) {
si ($1) {
la copie « oui, appliqué est plus grande que 0 \ n » ;
}
autrement {
imprimer le « non, appliqué est 0 \ n » ;
}
}
autrement {
la copie « là n'est aucun ici appliqué de champ \ n » ;
}
bout ; # ceci casse la boucle après la première boucle, simulant la « tête -1 »
}
fin (DOSSIER) ;