Re^3: adding an IF to a push

Replies are listed 'Best First'.
Re^4: adding an IF to a push by sulfericacid (Deacon) on Jun 28, 2006 at 04:45 UTC
Actually I was going to go out on a lim and try `my $num = 5; if (\&add($num) { .. } sub add { my $shift = shift; my $num2 = 10; my $sum = $num1 + $num2; if ($sum == "15") { return 1; } else { return 0; } }` [download] But after playing through numerous attempts, I couldn't pull it off. I just figured you should be able to test the return of a sub this way, though I've never thought of trying it until now. "Age is nothing more than an inaccurate number bestowed upon us at birth as just another means for others to judge and classify us" sulfericacid	[reply] [d/l]
Re^5: adding an IF to a push by ikegami (Patriarch) on Jun 28, 2006 at 05:15 UTC
Change `if (\%add($num) { .. }` to `if (add($num)) { .. }` In context, it would actually be: `sub is_image_size_ok { my ($image) = @_; my $img = get($image); my ($height, $width) = imgsize(\$img); return $height < $max_h and $width < $max_w; } push @array, $string =~ m#stuff#g if is_image_size_ok($image);` [download]	[reply] [d/l] [select]
Re^6: adding an IF to a push by sulfericacid (Deacon) on Jun 28, 2006 at 05:30 UTC
Thank you ikegami for clearing that up. I knew it was possible but I couldn't get the syntax to work although now that I look back, I have to wonder what I was thinking in the first place. Easy stuff. "Age is nothing more than an inaccurate number bestowed upon us at birth as just another means for others to judge and classify us" sulfericacid	[reply]
Re^4: adding an IF to a push by Anonymous Monk on Jun 28, 2006 at 05:40 UTC
Hi. I have another question. The variable I test with is the data caught in the match ($1). I can't get $1 to hold a value. Is there another way to do this? `push @found_images, $get_gal =~ m#http://images\.imagefap\.com/imag +es/thumb/\d+/\d+/\d+\.jpg#g if do { my $image = get($1); print "found $1<br>"; my ($height, $width) = imgsize(\$image); $height < $max_height and $width < $max_width; };` [download]	[reply] [d/l]
Re^5: adding an IF to a push by ikegami (Patriarch) on Jun 28, 2006 at 06:01 UTC
Two reasons: You don't have any captures in your regexp, so `$1` is never given a value. The `do` is executed before the match. The match might not be executed at all, depending on the value returned by `do`. Fix: `while ($get_gal =~ m#(http://{...}.jpg)#g) { my $image = get($1); my ($height, $width) = imgsize(\$image); push @found_images, $1 if $height <= $max_height and $width <= $max_width; }` [download] Bunch of alternative styles: <Reveal this spoiler or all in this thread>	[reply] [d/l] [select]
Re^5: adding an IF to a push by shmem (Chancellor) on Jun 28, 2006 at 06:01 UTC
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}	[reply] [d/l] [select]
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


Perl-Sensitive Sunglasses
	PerlMonks