The problem is that you never update $pics_found. Replace $pics_found with @found_images.

I see that you tried to debug the problem by adding print statements. That's good. (We like monks that put in some effort, and it's what I would have done.) The problem with your print statements is that they are being buffered. Adding $| = 1 will reveal them.

I took the liberty of cleaning up your code: 

# $| = 1;  # Uncomment when adding print statements for debugging.

# Get more than needed so we can randomly choose images later.
while (@found_galleries && @found_images < $pics_to_find * 30)
{
   # Remove one gallery link at a time until we're done.
   my $gal_url = pop(@found_galleries);
   my $gal = get($gal_url);

   # Extract the image URLs from the gallery page.
   my @image_urls = $gal =~ m#(http://images\.imagefap\.com/images/thu
+mb/\d+/\d+/\d+\.jpg)#g;

   # Remove the images which are too big.
   if ($limit_img_size eq "yes")
   {
      @image_urls = grep {
         my $image = get($_);
         my ($height, $width) = imgsize(\$image);
         $height <= $max_height && $width <= $max_width
      } @image_urls;
   }

   push @found_images, @image_urls;
}

[download]

In reply to Re: endless loop problems by ikegami
in thread endless loop problems 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.