[SP-pm] Selecionar texto após uma determinada linha em um arquivo
Renato Santos
renato.cron at gmail.com
Sun Jun 26 17:29:10 PDT 2011
Não vejo muita diferença, mas você me deu outra idéia:
$linha = undef;
open
while ( <> ){
if ($_ =~ /text/){
$linha = $.; # $. tem a linha atual
}
if (defined $linha ) {
$juntatexto .= $_;
}
}
Asssim vc tem o lugar da linha.
# lendo e-mail do futuro!
pra copiar da 50 até o final você faria assim:
while ( <..> ){
if ($. >= 50) {
$juntatexto .= $_;
}
}
Entre tando, geralmente usam uma variavel iniciada como 0 e somam 1 a cada
loop.
2011/6/26 "Flávio R. Lopes" <flavio.lopes at links.inf.br>
> **
> 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" <flavio.lopes at links.inf.br>
>
>> 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: SaoPaulo-pm at pm.org
>> 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: SaoPaulo-pm at pm.org
> 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: SaoPaulo-pm at pm.org
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
--
Renato Santos
http://www.renatocron.com/blog/
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20110626/aa73398b/attachment.html>
More information about the SaoPaulo-pm
mailing list