vc pode criar uma variavel que tera o valor falso antes do loop do arquivo,
e mais uma vazia, e quando encontar o texto que está procurando, jogue o
troque o valor da variavel para outro, e depois verifique se o valor é o ..
ah, que saber:
$encontrou = 0;
$texto = '';
open(.., '<', ..);
while( <..>) {
???
if ($_ =~ /algumaregexpr/ ) {
$encontrou = 1;
}
if ($encontrou){
$text .= $_;
}
}
$textoAteoFinal = $texto;
Têm muitas formas, mas está é a mais clara.
2011/6/26 "Flávio R. Lopes" <[email protected]>
> Olá pessoal!
> Há alguns dias venho brigando com um script, onde gostaria que este script
> me ajudasse a selecionar algumas linhas de um arquivo de texto.
> Preciso selecionar, à partir da ocorrência de uma determinada string, todo
> o texto até o final do arquivo.
>
> Supondo que eu tenha uma linha que inicie com "26-06-2011", como poderia
> fazer a regex para copiar todo o texto desta linha até o final do arquivo,
> inclusive esta linha?
>
> abraço,
> Flávio
>
>
> =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<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> >
> =end disclaimer
>
--
Renato Santos
http://www.renatocron.com/blog/
=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
