Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re: Re: Re: space saving wanted!

by vek (Prior)
on Apr 23, 2003 at 15:44 UTC ( #252597=note: print w/replies, xml ) Need Help??


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

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); }
-- vek --

Replies are listed 'Best First'.
Re: Re: Re: Re: space saving wanted!
by demerphq (Chancellor) on Apr 23, 2003 at 19:44 UTC

    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...
      Absolutely, by the looks of things it certainly wouldn't hurt would it :-)

      demerphq++

      -- vek --

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://252597]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (4)
As of 2022-12-02 10:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?