Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

The nature of work

by tilly (Archbishop)
on Aug 28, 2000 at 16:25 UTC ( #29977=poem: print w/ replies, xml ) Need Help??

The job I want:
$dollars++ while sleep(1);
The job I get:
{ work(); redo; get_rich(); }
That's life!

Comment on The nature of work
Select or Download Code
RE: The nature of work
by t0mas (Priest) on Aug 28, 2000 at 18:21 UTC
    Poor tilly: That's life!

    $life = "hard";

    :)

    /brother t0mas
RE: The nature of work
by Mushy (Scribe) on Aug 29, 2000 at 01:48 UTC
    % cat life.pl #!/usr/bin/perl # life.pl use Reality; # from tilly while ($alive && !$rich) { $money = work(); $taxes = 30 + rand 20; $money -= $taxes; pay($taxes); } die "Empty handed."; __END__ % perl -c life.pl Warning: The value of $rich is always false. %

    - Mushy

      Good one!!!
      I wish I only paid 50$ in taxes tops.
        Nobody said the unit was USD! It could be something like "the average national income of a small developing country" (on second thought that is still not much -- and if it is negative you get a tax-refund).

        CountZero

        "If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (12)
As of 2014-12-29 15:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (191 votes), past polls