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
