[FUGSPBR] [OT] Regex

[Leonardo B. Cuquejo]

Pessoal, tenho um problema..

Tenho um sisteminha que manda e-mails (html) via perl e ele adiciona um
rodape sempre no fim da mensagem, como eu tinha feito isso:

$linha =~ s/<\/BODY>/$mrodape/g;

Dai ele trocava a palavra </BODY> do e-mail html por por ex.:

<TABLE><TR><TD> Ola este eh o rodape </TD></TR></TABLE></BODY>

Assim tudo funcionava perfeitamente...

Problema:
as vezes o outlook quando faz mensagem em HTML ele deixa o BODY assim:
</=^M
BODY>

Dai essa minha syntax nao funciona. Pergunta como fazer isso? Segundo
problema esse perl le o EML linha por linha.
entao tentei tratar assim:
$linha =~ s/<\/=\nBODY>/$mrodape/g;

ou
$linha =~ s/<\/=\r\nBODY>/$mrodape/g;

ou ainda
$linha =~ s/<\/=\n\rBODY>/$mrodape/g;

mas nao funciona ja que ele pega linha por linha!

Desculpem pelo off, mas ja tentei de tudo que eh jeito.

GAMK, sei que vc eh bom nisso, da uma forcinha :D

Estava pensando quem sabe um if...
Tipo se a linha anterior acabou com <\= e a nova comecar com BODY>...

Vou tentar enquanto aguardo resposta

Grato,
Leonardo B. Cuquejo

_______________________________________________________________
Sair da Lista: http://www2.fugspbr.org/mailman/listinfo/fugspbr
Historico: http://www4.fugspbr.org/lista/html/FUG-BR/