Putz! Obrigado Eden! É exatamente isto!

On 27-06-2011 06:36, Eden Cardim wrote:
"Flávio" == Flávio R Lopes<[email protected]>  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


=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

Responder a