Re^4: adding an IF to a push

in reply to Re^3: adding an IF to a push
in thread adding an IF to a push

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

Comment on Re^4: adding an IF to a push Download Code

Replies are listed 'Best First'.
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]

In Section Seekers of Perl Wisdom