Beefy Boxes and Bandwidth Generously Provided by pair Networks Cowboy Neal with Hat
Just another Perl shrine
 
PerlMonks  

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

Lane

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
      Lane

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (7)
As of 2014-04-20 05:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (485 votes), past polls