Well here is another update. I did not like expanding the array on initializtion; code below has some other clarifications and enough changes to warrant another reply.

#!/usr/local/bin/perl

use warnings;
use strict;

my @in = qw/2 3 5 polka dot bikini/;

#  Help the helper code help us
init( \@in );

foreach (0 .. scalar @in -1)
{
  printf " Current: %s\n    Next: %s\nPrevious: %s\n"
    , map { defined $_ ? $_ : 'undefined' }
        #
        #  Let something else fetch the values (in forward direction o
+nly)
        get( $_ )
        #
        #  Do it yourself
        #sub { move_fore(); ( current() , next_() , prev() ); }->()
    ;


  print "\n";
}

#  Helper code
{ my ($old , $cursor , $size , $array);

  sub init
  { $array = shift;
    $size = scalar @{$array} or die "empty array\n";
    $old = $cursor = 0;
  }

  sub get
  { $cursor = shift;
    die "no index given\n" unless defined $cursor;
    move_fore();
    return ( current() , next_() , prev() );
  }

  sub current
  { return $array->[$old];
  }
  sub prev
  { return ($old -1) >= 0 ?  $array->[ $old -1 ] : undef;
  }
  sub next_
  { return ($old +1) < $size ? $array->[ $old +1 ] : undef;
  }

  sub move_fore { $old = $cursor++; }
  sub move_back { $old = --$cursor; }
}

[download]

In reply to Re: Re: Getting the next array element while still keeping the current one by parv
in thread Getting the next array element while still keeping the current one by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.