[SP-pm] Selecionar texto após uma determinada linha em um arquivo

[Daniel de Oliveira Mantovani]

Você também pode selecionar de um ponto ao outro do arquivo se você quiser.
use 5.12.0;
...
when(/^foo/ .. /^baz/) {
  print "$_\n";
}

 __DATA__
 foo
 bar
 baz
 quux

2011/6/27 Eden Cardim <edencardim em gmail.com>:
>>>>>> "Flávio" == Flávio R Lopes <flavio.lopes em 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 em pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>



-- 
"If you’ve never written anything thoughtful, then you’ve never had
any difficult, important, or interesting thoughts. That’s the secret:
people who don’t write, are people who don’t think."