Hi Monks, My annoying problem is: I am looping through an array of @numbers from 1-50 with some numbers missing. I am comparing these numbers to that of a $counter, if the two numbers are equal, I want to print an image to the screen, if the two numbers are different e.g. $counter = 10, number = 9, i print a different image.

My problem is occuring after a missing number has been found, I am struggling to get the counter to catch up with the number - I have tried +=1 and all sorts but my efforts mean that the wrong image is printed after the missing number (because the right image is only printed when the numbers are equal). How can I change this to still print one of the images after a missing number has been found??

Hopefully some code will explain this: Thanks a lot. 





 for my $counter ( 1..100 )    {


    for my $i ( @numbers )    {


           my $img;

           print "WELL: $i <P> GOAL: $counter<P>";


          if ($i == $counter)  {

                $img = $right[$counter-1];
          }

          else {

                $img = "error.bmp";
                $i -= 1;
          }
     
          $counter++;

          print qq(<area href="http:///cgi-bin/$img" 
                 >);


    }


 }

[download]

In reply to Real confusion with loops and counters 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.