не используйте perl в perl, ем получает слишком осложненн с характерами времен n избегая, perl пользы сразу!
раскройте (АРХИВ, «/v/region/na/appl/phoenixfunding/etl/data/qa/SessLogs/$wf_log»);
пока () {
chomp;
затем если _ $! ~ /Inserted/; # закрепляет петлей до тех пор пока не найти линия с «после того как я введена», имитирует «grep»;
если (/Applied:, то +) (\ d+/) {
если ($1) {, то
печать «да, прикладной большле чем 0 \ n»;
}
еще {
не напечатайте «нет, прикладное будет 0 \ n»;
}
}
еще {
печать «там никакое прикладное здесь поля \ n»;
}
последнее; # это ломает петлю после первой петли, имитируя «головку -1»
}
конец (АРХИВ);