Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

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!

Replies are listed 'Best First'.
RE: The nature of work
by Mushy (Scribe) on Aug 29, 2000 at 01:48 UTC
    % cat #!/usr/bin/perl # use Reality; # from tilly while ($alive && !$rich) { $money = work(); $taxes = 30 + rand 20; $money -= $taxes; pay($taxes); } die "Empty handed."; __END__ % perl -c 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).


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

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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://29977]
Approved by root
[hippo]: Yary: There are a few useful pointers in I need perl coding standards
[hippo]: ... and a boatload of good stuff in On Coding Standards and Code Reviews
[Yary]: Looking at system pm's, looks like it's "package" on the first line, then POD, then "use;use strict; use warnings; use modules..."
[Yary]: ah thanks for those links
[hippo]: Just bear in mind that all such ideas are subjective.
[choroba]: There might be a different standard at the shop you write the code for.
[choroba]: The order of package - (strict+warnings | warnings+strict) - modules makes sense, POD and strict-warnings order are not so important

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (12)
As of 2018-01-23 17:02 GMT
Find Nodes?
    Voting Booth?
    How did you see in the new year?

    Results (250 votes). Check out past polls.