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