Clear questions and runnable code get the best and fastest answer |
|
PerlMonks |
For What It's Worth, Buffalo Springfield styleby newrisedesigns (Curate) |
on Jul 25, 2002 at 01:24 UTC ( [id://185085]=poem: print w/replies, xml ) | Need Help?? |
I read sauoq's post, and thought it was some obfu of the classic song. Here's my half obfu (really thinly veiled obfu)/half poem. Hope you enjoy. #!/usr/bin/perl #There's somethin' happening here, my $what = "whfg nabgure crey unpxre,";#What it is ain't exactly clear. use warnings; #There's a man with a gun over there, use strict; $what =~ tr/n-za-m/a-mn-z/;#Tellin' me I gotta beware. sleep(5); #I think it's time we stop, print chr(7) . chr(7) . chr(7); #Hey, what's that sound, print $what; #Everybody look what's going down. forgive it, it's a little rough... and needs user interpretation :) John J Reiser
Back to
Perl Poetry
|
|