in reply to adding an IF to a push

Your proposed if form is correct. The parens are unnecessary for a "statement modifier" if like that, but they don't do any harm if you prefer to keep them.

You can link two conditions with and if you want to fail unless both are true. The additional processing you need can be wrapped up in a do block.

push @array, $string =~ m#stuff#g
    if do {
        my $img = get($image);
        my ($height, $width) = imgsize(\$img);
        $height < $max_h and $width < $max_w;
    };

[download]

After Compline,
Zaxo

Replies are listed 'Best First'.
Re^2: adding an IF to a push
by sulfericacid (Deacon) on Jun 28, 2006 at 03:56 UTC
    Although Zaxo is right, I imagine it'd be okay, too, if the condtional statements were wrapped in a sub{} and you just check the return value in the proposed if().


    "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]
      You mean like the following? 
      push @array, $string =~ m#stuff#g
    if sub {
        my $img = get($image);
        my ($height, $width) = imgsize(\$img);
        $height < $max_h and $width < $max_w;
    }->();

      [download]

      Zaxo's do is more direct and has less overhead, but why not just use the following: 

      my $img = get($image);
my ($height, $width) = imgsize(\$img);
push @array, $string =~ m#stuff#g
    if $height < $max_h and $width < $max_w;

      [download]

      You can wrap the whole thing in curlies if you want to limit the scope of $img, $height and $width.

[reply]
[d/l]
[select]
        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]
        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]

In Section Seekers of Perl Wisdom