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
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: My Next Job
by bart (Canon) on Jul 12, 2004 at 21:48 UTC | |
by lvanhout (Curate) on Jul 12, 2004 at 21:54 UTC |
Back to
Perl Poetry