Re^4: adding an IF to a push


Come for the quick hacks, stay for the epiphanies.
	PerlMonks

Re^4: adding an IF to a push

by sulfericacid (Deacon)

on Jun 28, 2006 at 04:45 UTC ( [id://557925]=note: print w/replies, xml )

Need Help??

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

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://557925]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others learning in the Monastery: (3)

As of 2024-04-19 17:11 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found