Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

My Next Job

by lvanhout (Curate)
on Jul 12, 2004 at 17:58 UTC ( #373675=poem: print w/ replies, xml ) Need Help??

sub findJob { while($seemsLikeForever) { if($jobUses eq 'only MicroShaft products') { cry("like a baby!"); }elsif($jobUses eq 'planning on Open Source some day, but currentl +y MS') { cry("whine like spoiled child."); }elsif($jobUses eq 'Java on Windows') { cry("I can live with it"); }elsif($jobUses eq 'Perl on Linux') { cry("hallelujah"); }else { cry("they have lost their way") } } if($live eq "yes") { return(findJob("let's do it again")) #recursive call }else { return($dust) } }


Comment on My Next Job
Download Code
Re: My Next Job
by bart (Canon) on Jul 12, 2004 at 21:48 UTC
    == compares numerically, so if $jobUses is numerically zero, all tests will return true. Hmm... maybe there's a hidden meaning in that... but anyway, IMO you'd better have used eq, at least for technical reasons.
      Good suggestion thank you

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://373675]
Approved by Old_Gray_Bear
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (6)
As of 2015-03-29 07:03 GMT
Find Nodes?
    Voting Booth?

    When putting a smiley right before a closing parenthesis, do you:

    Results (630 votes), past polls