Não vejo muita diferença, mas você me deu outra idéia:<br><br><div>$linha = undef;</div><div>open</div><div>while ( <> ){</div><div>    if ($_ =~ /text/){</div><div>     $linha = $.; # $. tem a linha atual</div><div>

    }</div><div>    if (defined $linha ) {</div><div>      $juntatexto .= $_;</div><div>    }</div><div>}</div><div><br></div><div>Asssim vc tem o lugar da linha.</div><div><br></div><div><br></div><div># lendo e-mail do futuro!</div>

<div><br></div><div>pra copiar da 50 até o final você faria assim:<br><div>while ( <..> ){</div><div>    if ($. >= 50) {</div><div>        $juntatexto .= $_;</div><div>    }</div><div>}</div></div><div><br></div>

<div>Entre tando, geralmente usam uma variavel iniciada como 0 e somam 1 a cada loop.</div><div><br></div><div><div class="gmail_quote">2011/6/26 "Flávio R. Lopes" <span dir="ltr"><<a href="mailto:flavio.lopes@links.inf.br">flavio.lopes@links.inf.br</a>></span><br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><u></u>


  

<div bgcolor="#ffffff" text="#000000">
Olá Renato!<br>
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.<br>
Dá para fazer isto?<div><div></div><div class="h5"><br>
<br>
On 26-06-2011 20:56, Renato Santos wrote:
<blockquote type="cite">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:
  <div><br>
  </div>
  <div>$encontrou = 0;</div>
  <div>$texto = '';</div>
  <div>open(.., '<', ..);</div>
  <div>while( <..>) {</div>
  <div>   ??? </div>
  <div>    if ($_ =~ /algumaregexpr/ ) {</div>
  <div>        $encontrou = 1;</div>
  <div>    }</div>
  <div>    if ($encontrou){</div>
  <div>      $text .= $_;</div>
  <div>   }</div>
  <div>}</div>
  <div><br>
  </div>
  <div>$textoAteoFinal = $texto;</div>
  <div><br>
  </div>
  <div><br>
Têm muitas formas, mas está é a mais clara.</div>
  <div><br>
  </div>
  <div>
  <div class="gmail_quote">2011/6/26 "Flávio R. Lopes" <span dir="ltr"><<a href="mailto:flavio.lopes@links.inf.br" target="_blank">flavio.lopes@links.inf.br</a>></span><br>
  <blockquote class="gmail_quote" style="border-left:1px solid rgb(204, 204, 204);margin:0pt 0pt 0pt 0.8ex;padding-left:1ex">Olá
pessoal!<br>
Há alguns dias venho brigando com um  script, onde gostaria que este
script me ajudasse a selecionar algumas linhas de um arquivo de texto.<br>
Preciso selecionar, à partir da ocorrência de uma determinada string,
todo o texto até o final do arquivo.<br>
    <br>
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?<br>
    <br>
abraço,<br>
Flávio<br>
    <br>
    <br>
=begin disclaimer<br>
 Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
  </blockquote>
  </div>
  <br>
  <br clear="all">
  <br>
-- <br>
Renato Santos<br>
  <a href="http://www.renatocron.com/blog/" target="_blank">http://www.renatocron.com/blog/</a><br>
  </div>
  <pre><fieldset></fieldset>
=begin disclaimer
   Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a>
 SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a>
 L<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank"><http://mail.pm.org/mailman/listinfo/saopaulo-pm></a>
=end disclaimer
  </pre>
</blockquote>
<br>
</div></div></div>

<br>=begin disclaimer<br>
   Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
 SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
 L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div><br><br clear="all"><br>-- <br>Renato Santos<br><a href="http://www.renatocron.com/blog/" target="_blank">http://www.renatocron.com/blog/</a><br>
</div>