<p>Sei q já deram várias formas<br>
Mas sou contra esta de localizar e substituir pela mesma coisa.</p>
<p>A mais legivel foi a versão do Eden <br>
Em 27/06/2011 02:30, "Eduardo Verissimo" <<a href="mailto:everissimo@gmail.com">everissimo@gmail.com</a>> escreveu:<br>
><br>
> 2011/6/27 Felipe Martins Oliveira da Silva <<a href="mailto:flpmo@hotmail.com">flpmo@hotmail.com</a>><br>
>><br>
>> Gostaria de ti mostrar uma outra solução usando expressões regulares.<br>
>><br>
>> $\ = "_EOF_";<br>
>> open(LE, arquivo);<br>
>> $conteudo = <LE>;<br>
>> close LE;<br>
>> $conteudo =~ s/.*?texto/texto/si;<br>
>><br>
>> Pronto, você terá todo conteúdo do texto para frente.<br>
>><br>
>> Att,<br>
>>   Felipe Silva<br>
><br>
><br>
> Pra deixar um pouquinho mais econômico, eu usaria a expressão abaixo:<br>
><br>
> s/.*?(texto)/\1/si;<br>
><br>
> Abraço!<br>
><br>
> Eduardo Veríssimo<br>
><br>
> =begin disclaimer<br>
>   Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/">http://sao-paulo.pm.org/</a><br>
>  SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
>  L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
> =end disclaimer<br>
><br>
</p>