Закомментируйте заявление журнала многострочного Использования Perl один лайнер регулярки замены

Question

У меня есть PERL Однострочник, который работает, когда заявление журнала находится на одной линии:

find -type f -iname "*java" | xargs -d'\n' -n 1 perl -i -pe 's{(log.*((info)|(debug)).*)}{//$1}gi' 

Но пытаться изменить это работать на нескольких линий является сложно. Я знаю, что модификатор s будет соответствовать новым строкам, но как мне его получить, чтобы прокомментировать последующие строки (т. Е. До ;, если в строке журнала его нет)?

У меня все в порядке с решением, которое делает многострочные операторы журнала в однострочные операторы журнала. Я также соглашусь с комментариями в стиле C (хотя было бы неплохо найти решение для комментариев стиля C++).

(Не говорите мне, чтобы отключить ведение журнала регистрации. Тот, кто на самом деле пытался, что поймет, как жестоко осложняется тем, что в нетривиальных приложениях.)

Answer 1

Просто общая идея (пожалуйста, адаптируются к вашему делу .. .)

...perl -i -p0e 's{(log.*?((info)|(debug)).*?;)}{ $1 =~ s!^|\n!\n//!gr }gsei' 

где:

• .*? вместо .* вести себя, не GReddy
• -p0e обрабатывать полный текст в качестве одной записи
• $1 =~ s!^|\n!\n//!gr сделать дополнительную обработку внутренних переводов строк

Пожалуйста, проверьте его перед нанесением ...

Answer 2

Вы можете использовать range operator, start .. stop:

perl -i -pe 's!^!//! if /log.*(info|debug)/ .. /;/'