Putz, desculpe! Escrevi errado!
Supondo que a o número da linha onde há a ocorrência seja a linha 100,
como poderia fazer então para copiar da linha 100 até o final do arquivo?
On 26-06-2011 21:28, Gustavo Telly wrote:
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]
<mailto:[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]
<mailto:[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]
<mailto:[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] <mailto:[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] <mailto:[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]
<mailto:[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
=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
