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

got this song in me head

by synapse0 (Pilgrim)
on Sep 29, 2001 at 09:30 UTC ( #115585=poem: print w/replies, xml ) Need Help??

yeah, yeah, it's another song (well, small portion of a song anyway) perl-ized.. tough, live with it.. it was just dyin to be on here!!
anyway...

#!/usr/bin/perl # .................................. # you can ignore this if you want... # .................................. %perl = ('monk' => chr(80) . chr(105) . chr(120) . chr(105) . chr(101) . chr(115) ); sub heaven { print "$perl{@_[0]}\n"; } $man = 5; # ........................... # let the fun begin # ........................... { if ($man == 5) { $Devil = 6; if ($Devil == 6) { $God = 7; $this = 'monk'; &heaven($this); } } }
Everybody sing along!! woohoo!!
-Syn0
(bah.. once again, I've been awake waaayyy too long <big sheepish sleep-deprived grin>)

Replies are listed 'Best First'.
Re: got this song in me head
by petdance (Parson) on Oct 04, 2001 at 22:52 UTC
    Come on, pilgrim, your program seems to do little.

    Who picks these?

    xoxo,
    Andy
    --
    <megaphone> Throw down the gun and tiara and come out of the float! </megaphone>

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (4)
As of 2023-01-28 07:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?