Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Christmas time

by buetow (Beadle)
on Dec 20, 2006 at 19:30 UTC ( #590963=poem: print w/replies, xml ) Need Help??

Hello!

Here ist my perl christmas poetry. perl produces no error if using the perl version which is listed after the __END__ line :)

#!/usr/bin/perl Christmas:{time;#!!! Children: do tell $wishes; Santa: for $each (@children) { BEGIN { read $each, $their, wishes and study them; use Memoize#ing } use constant gift, 'wrapping'; package Gifts; pack $each, gift and bless $each and goto deliver or do import if not local $available,!!! HO, HO, HO; redo Santa, pipe $gifts, to_childs; redo Santa and do return if last one, is, delivered; deliver: gift and require diagnostics if our $gifts ,not break; do{ use NEXT; time; tied $gifts} if broken and dump the, broken, ones; The_children: sleep and wait for (each %gift) and try { to => untie $g +ifts }; redo Santa, pipe $gifts, to_childs; redo Santa and do return if last one, is, delivered; The_christmas_tree: formline s/ /childrens/, $gifts; alarm and warn if not exists $Christmas{ tree}, @t, $ENV{HOME}; write <<EMail to the parents to buy a new christmas tree!!!!111 and send the EMail ;wait and redo deliver until defined local $tree; redo Santa, pipe $gifts, to_childs; redo Santa and do return if last one, is, delivered;} END {} our $mission and do sleep until next Christmas; } __END__ This is perl, v5.8.8 built for i386-freebsd-64int (with 1 registered patch, see perl -V for more detail)
Paul C. Buetow - http://paul.buetow.org

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (3)
As of 2022-08-13 12:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?