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 <[email protected]>:
>>>>>> "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
>
> --
> 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: [email protected]
> 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."
=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
