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