Perl nicht in Perl, es benutzen erhält zu schwierig mit Escape-Zeichen der n-Zeiten, Gebrauchperl direkt!
öffnen (AKTE, „/v/region/na/appl/phoenixfunding/etl/data/qa/SessLogs/$wf_log“);
während () {
chomp;
zunächst wenn $ _! ~ /Inserted/; # schlingt, bis eine Linie mit „eingesetzt“ gefunden, simuliert den „Grep“;
wenn (/Applied: + (\ d+)/) {
wenn ($1) {
Druck „ja, zugetroffen ist grösser als 0 \ n“;
}
sonst {
„das Nr. drucken, angewendet ist 0 \ n“;
}
}
sonst {
Druck „dort ist kein angewandtes hier des Feldes \ n“;
}
Letztes; # bricht dieses die Schleife nach der ersten Schleife und simuliert den „Kopf -1“
}
Abschluss (AKTE);