pq da linha 50 se a ocorrência está na 100 ??? não entendi muito bem....
[]'s 2011/6/26 "Flávio R. Lopes" <[email protected]> > ** > Deixar eu explicar melhor. > Supondo que o número da linha onde há a ocorrência da palavra seja a linha > número 100. Como eu faria para copiar/selecionar da linha 50 até o final do > arquivo? > > > On 26-06-2011 21:19, "Flávio R. Lopes" wrote: > > Olá Renato! > Então, estive pensando também na seguinte hipótese: Eu tenho como obter o > número da linha onde está a primera ocorrência do valor. Então à partir > disto, eu copiaria desta linha até o final do arquivo. > Dá para fazer isto? > > On 26-06-2011 20:56, Renato Santos wrote: > > 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> >> =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> > <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> > <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 > >
=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
