in reply to Re: space saving wanted!
in thread space saving wanted!

How could i do this if i wanted to test each $count for being over 0 ?? e.g. 


if ($calc < 0 )  {

      print "$some_variable\n";

 }

[download]

Replies are listed 'Best First'.
Re: Re: Re: space saving wanted!
by vek (Prior) on Apr 23, 2003 at 15:44 UTC
    Well demerphq already gave you 99.9% of the code, just test to see if each variable is greater than zero: 
    my ($calc1, $calc2, $calc3, $calc4);
foreach my $calc ( $calc1, $calc2, $calc3, $calc4   )   {
  print "$calc\n" if ($calc > 0);
}

    [download]
    -- vek --
[reply]
[d/l]

      It seems to me that annonymok should review perlsyn. What do you think?


      ---
      demerphq

      <Elian> And I do take a kind of perverse pleasure in having an OO assembly language...
[reply]
[d/l]
        Absolutely, by the looks of things it certainly wouldn't hurt would it :-)

        demerphq++

        -- vek --
[reply]

In Section Seekers of Perl Wisdom