Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

The Jabberwock, By Lewis Caroll

by wombat (Curate)
on Aug 27, 2000 at 20:44 UTC ( #29907=poem: print w/replies, xml ) Need Help??

And you thought it was weird in English! ~W
#!/usr/bin/perl $toves="slithy"; ($brillig and $toves); while ($wabe) {($gyre and $gimble)} ($borogoves = "mimsy") and ($momeraths = "outgrabe"); beware ("Jabberwock"); $jabberwock{jaws} ="bite"; $jabberwock{claws} ="catch"; beware ("Jub Jub Bird"); shun ("Frumious Bandersnatch"); $boy{carrying} ="vorpal sword"; if ($jabberwock{position} ne "Behind tree") {sleep 3}; if ($jabberwock{position} ne "In cave") {sleep 3}; if ($jabberwock{position} ne "Under rock") {sleep 3}; $boy{position} ="by the Tumtum tree, in thought."; while ($boy{position} eq "standing in uffish thought"){} $jabberwock{eyes} = "flame"; $jabberwock{position} = "Whiffling through the Tulgey wood"; burble; $one; $one++; $one; ($one++ and ($through && $through)); vorpal_blade; $jabberwock="dead"; $boy{carrying}="Jabberwock head"; $boy{position} = "Galumphing back"; if ($jabberwock eq "dead") { $boy{position} = "father's arms"; $father{exclamation} = "Oh Frabjous day! Callooh! Callay!"; chortle; } $toves="slithy"; ($brillig and $toves); while ($wabe) {($gyre and $gimble)} ($borogoves = "mimsy") and ($momeraths = "outgrabe"); sub beware { $run_away; $run_away; } sub shun { $point_and_laugh; } sub burble; { print "Glub glub. Roaaaaaaar! Glub glub.\n"; } sub vorpal_blade; { print "Snicker Snack!\n"; } sub chortle; { print "$father{exclamation}\n"; }

Replies are listed 'Best First'.
RE: The Jabberwock, By Lewis Caroll
by royalanjr (Chaplain) on Aug 29, 2000 at 18:10 UTC
    Great stuff!!!

    Roy Alan

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://29907]
Approved by root
help
Chatterbox?
[marto]: in house as in Company network, not internet connected (power stations and the corporate HQs)
[Discipulus]: new Monsignor party! free beverages and pizza for all you monks! and a big thanks for the patience you deserved me during these years
[marto]: congrats Discipulus
[Discipulus]: only 4k points to sundial's level ..;=)
[Corion]: Yay Discipulus ;)
[Corion]: marto: Ah, so this will be training videos etc., cool!
[choroba]: Congratulations!
[marto]: Corion worse, some plant inspection, cameras moving thru pipes
[marto]: Discipulus yeah, just don't adopt his tactics :P
[marto]: the content for the most part is fairly dull, but if they go for it, they can use it for all sorts of video, they have no solution for this at the moment

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (9)
As of 2017-07-28 09:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I came, I saw, I ...
























    Results (425 votes). Check out past polls.