in reply to Find Element of array but use the next Element

If you are using 5.12 you can use this: 
#!/usr/bin/perl

use strict;
use warnings;

my @arr = ('app', 'Oracle', 'EPDMCA', 'Oracle' ,'EPZXC');
while (my($index,$value) = each @arr )
                {
                 if($value eq "Oracle")
                   {
       print "Value next to Oracle is:$arr[$index+1]\n"
                   }
                }

[download]

Replies are listed 'Best First'.
Re^2: Find Element of array but use the next Element
by afoken (Chancellor) on Jun 15, 2012 at 20:43 UTC

    ... with the little problem that it does not like Oracle as last Element of @arr:

    my @arr = ('app', 'Oracle', 'EPDMCA', 'Oracle' ,'EPZXC','Oracle'); 
    Value next to Oracle is:EPDMCA
Value next to Oracle is:EPZXC
Use of uninitialized value within @arr in concatenation (.) or string 
+at 976380.pl line 11.
Value next to Oracle is:

    [download]

    Alexander

    --
    Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom