Re^5: adding an IF to a push

You have to insert parens into your m## operation

m#(http://images\.imagefap\.com/images/thumb/\d+/\d+/\d+\.jpg)#g
[download]

or use $&

   # update: this won't work anyways - see previous post and followup
   push @found_images, $get_gal =~ m#http://images\.imagefap\.com/imag
+es/thumb/\d+/\d+/\d+\.jpg#g
   if do {
      my $image = get($&);
      print "found $1<br>";
      my ($height, $width) = imgsize(\$image);
      $height < $max_height and $width < $max_width;
   };
[download]

at the expense of speed - see perlvar, section BUGS for that.

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

Comment on Re^5: adding an IF to a push Select or Download Code

Replies are listed 'Best First'.
Re^6: adding an IF to a push by ikegami (Patriarch) on Jun 28, 2006 at 06:13 UTC
That's not enough to make it work. Check the reply I posted at the same time as you. And don't use `$&`! Simply using it will slow down regexp without captures everywhere in your program.	[reply] [d/l]
Re^7: adding an IF to a push by shmem (Chancellor) on Jun 28, 2006 at 06:23 UTC
if I only typed slower and checked the thread once in a while, I wouldn't have posted seeing your answer... ;-)	[reply]