No good for one-liners, but this looks pretty sweet:
use 5.010; use strict; use List::MoreUtils qw/first_index last_index/; sub narrow { my ($from, $to) = map { $_->(@_) } @{(pop)}; return @_[$from .. $to]; } sub from (&$) { [ @_[0..1] ] } sub to (&) { $_[0] } my @list = qw/eval DBIC::1 DBIC::2 My::1 My::2 My::3 Dancer::1 Dancer: +:2 Dancer::3 Dancer::4/; say foreach narrow @list, from { 1 + last_index { /^DBIC/ } @_ } to { (-1) + first_index { /^Dancer/ } @_ };
Obviously you'd want to factor narrow, from and to out into a separate module rather than defining them inline.
And given that from and to are quite generic names, perhaps something like start_at and finish_at might be better in practice.
In reply to Re: List::MoreUtils before, after and ... between?
by tobyink
in thread List::MoreUtils before, after and ... between?
by Boldra
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |