Life as Perl

#!/usr/bin/perl 
while($alive) { 
   seek(LIFE,LOVE,HAPPINESS); 
   study($life); 
   if($day=~"^S" or $weekend) { 
      sleep($longer); 
      tell $theworld, "HOORAY!"; 
      play(); 
      have($fun);  
      cut $GRASS; 
   } else { 
      sub work { 
         seek(PROBLEMS,0,1) and study; 
         $solve and $analyze until $done 
      };
   }
}
[download]

Comment on Life as Perl Download Code

Replies are listed 'Best First'.
Re: Life as Perl by CountZero (Bishop) on May 09, 2009 at 09:37 UTC
Now if you could only give it a nice lay-out (hint: use `<code>` ... `</code>` tags). CountZero A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James	[reply] [d/l] [select]
Re: Life as Perl by Anonymous Monk on Jun 12, 2009 at 18:47 UTC
`perlcritic -4` says: `Subroutine does not end with "return" at line 12, column 7.` [download] That means: work does not pay out?	[reply] [d/l] [select]