perl:
adicione um arquivo inteiro na matriz
Índice de array sobre loop
se nenhum sinalizador estiver definido e a primeira correspondência aparecer, defina um sinalizador
se o sinalizador e a segunda linha coincidirem, defina outro sinalizador
se ambas as correspondências bandeira e terceira linha excluírem as três linhas da matriz
Finalizar Loop
Imprimir matriz modificada de volta
também deve funcionar em python
-
Se você quiser usar um único regexp para combinar em várias linhas, o perl tem um sinalizador "m" pós-regex para isso. De perlre:
m Treat string as multiple lines. That is, change
^'' and$'' from matching at only the very start or end of the string to the start or end of any line anywhere within the string,s Treat string as single line. That is, change
.'' to match any character whatsoever, even a newline, which it normally would not match. The /s and /m modifiers both override the $* setting. That is, no matter what $* contains, /s without /m will force^'' to match only at the beginning of the string and$'' to match only at the end (or just before a newline at the end) of the string. Together, as /ms, they let the.'' match any character whatsoever, while yet allowing^'' and$'' to match, respectively, just after and just before newlines within the string.