Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Walk_of($life)

by jkva (Chaplain)
on Jun 29, 2005 at 11:18 UTC ( [id://470963]=poem: print w/replies, xml ) Need Help??

switch('song','Walk of Life'); #Dire Straits each(@workday) { while (lunchbreak()) { while (take($::daily::walk)) { think_about_code() # $self::wisdom++ } return($to_CB); } while ($life) {learn()} }

and specially for holli :

while (immigration() eq 'pending') { walk_alone() } switch('song','You'll never walk alone');

Replies are listed 'Best First'.
Re: Walk_of($life)
by CountZero (Bishop) on Jun 29, 2005 at 19:55 UTC
    Unfortunately: Type of arg 1 to each must be hash (not array dereference) at x:\webserver\perl\Scripts\Perl-1.pl line 2, near "@workday) " syntax error at x:\webserver\perl\Scripts\Perl-1.pl line 2, near ") {" Execution of x:\webserver\perl\Scripts\Perl-1.pl aborted due to compilation errors. on my AS Perl 5.8.6

    Or is it Perl6? Could this be the first Perl6 poem?

    CountZero

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

      It isn't really supposed to compile.

      It is kind of recursive though, as I thought it up while taking the daily walk :)

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others goofing around in the Monastery: (7)
As of 2024-04-23 13:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found