>>>>> "Flávio" == Flávio R Lopes <flavio.lo...@links.inf.br> writes:

    Flávio> Putz, desculpe! Escrevi errado!  Supondo que a o número da
    Flávio> linha onde há a ocorrência seja a linha 100, como poderia
    Flávio> fazer então para copiar da linha 100 até o final do arquivo?

while (<DATA>) {
  next unless /bar/;
  $/ = undef;
  print <DATA>;
  last;
}
__DATA__
foo
bar
baz
quux

-- 
   Eden Cardim       Need help with your Catalyst or DBIx::Class project?
  Code Monkey                    http://www.shadowcat.co.uk/catalyst/
 Shadowcat Systems Ltd.  Want a managed development or deployment platform?
http://blog.edencardim.com/            http://www.shadowcat.co.uk/servers/
http://twitter.com/#!/edenc
=begin disclaimer
   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
 SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org
 L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer

Responder a