if ($limit_img_size)
{
@image_urls = grep {
my $this_url = $_;
my $image = get($this_url);
print "Getting size of image $this_url
";
my ($height, $width) = imgsize(\$image) or die "Error $!";
print "IMG $this_url is $height and $width
";
$height <= $max_height && $width <= $max_width && $height ne "" && $width ne ""
} @image_urls;
}
push @found_images, @image_urls;
}
####
Getting size of image http://images.imagefap.com/images/full/8/175/1753983749.jpg
IMG http://images.imagefap.com/images/full/8/175/1753983749.jpg is and
Getting size of image http://images.imagefap.com/images/full/6/123/1232501810.jpg
IMG http://images.imagefap.com/images/full/6/123/1232501810.jpg is and
Getting size of image http://images.imagefap.com/images/full/6/750/750454169.jpg
IMG http://images.imagefap.com/images/full/6/750/750454169.jpg is and
Getting size of image http://images.imagefap.com/images/full/7/173/1733232860.jpg
IMG http://images.imagefap.com/images/full/7/173/1733232860.jpg is 675 and 900
Getting size of image http://images.imagefap.com/images/full/8/802/802952715.jpg
IMG http://images.imagefap.com/images/full/8/802/802952715.jpg is 900 and 675
Getting size of image http://images.imagefap.com/images/full/7/770/770728945.jpg
IMG http://images.imagefap.com/images/full/7/770/770728945.jpg is 675 and 900
Getting size of image http://images.imagefap.com/images/full/5/121/1212027075.jpg
IMG http://images.imagefap.com/images/full/5/121/1212027075.jpg is 675 and 900
#
# this is a printout of @found_images, as you can see
# it only stored images that were too large or did not
# have sizes
#
found images follow
http://images.imagefap.com/images/full/8/175/1753983749.jpg
-http://images.imagefap.com/images/full/6/123/1232501810.jpg
-http://images.imagefap.com/images/full/6/750/750454169.jpg
-http://images.imagefap.com/images/full/7/173/1733232860.jpg
-http://images.imagefap.com/images/full/8/802/802952715.jpg
-http://images.imagefap.com/images/full/7/770/770728945.jpg
-http://images.imagefap.com/images/full/5/121/1212027075.jpg