Similar to one of davido's but going to one short of the end of the array as there can't be anything after "Oracle" if "Oracle" is the last element.
$ perl -E ' > @arr = qw{ app Oracle EPDMCA Oracle EPZXC Oracle }; > say $arr[ $_ + 1 ] for > grep { $arr[ $_ ] eq q{Oracle} } 0 .. $#arr - 1;' EPDMCA EPZXC $
Cheers,
JohnGG
In reply to Re: Find Element of array but use the next Element
by johngg
in thread Find Element of array but use the next Element
by emjga
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |