review a show


P is for Practical
	PerlMonks

review a show

by teamster_jr (Curate)

on Oct 27, 2006 at 09:02 UTC ( [id://580880]=CUFP: print w/replies, xml )

Need Help??

It's been a very long time since i posted - my new job allows me significantly less obfu time :).
Here's a quick something:

My friends and I are off to see a kung fu demonstration by a bunch of shaolin monks on sunday. One of my friends can't make it and said:

"I can't do this weekend, so I expect a 1000-word review first thing on Monday." So I knocked this up:

@d = map { rand > .9 ? "kick" : rand > .8 ? "jump" : "punch" } 0 .. 10
+00;

for (
    "<b>leap through burning hoop</b>",
    "<b>lie on bed of spikes</b>",
    "<b>smash block over head</b>"
  )
{
    @a = split / /;
    splice( @d, rand($#d), 1 + $#a, @a );
}

open(FH, ">kung_fu_review.html");
print FH "<html><body>@d</body></html>";
close(FH);
[download]

an instant (not entirely serious :)) 1000 word review (in the file kung_fu_review.html) of what i'm sure will be an amazing spectacle (if they keep to my script).
Alex

Update: it seems my review was spot on :)

Comment on review a show Download Code

Replies are listed 'Best First'.
Re: review a show by merlyn (Sage) on Oct 27, 2006 at 09:35 UTC
You can get a lot more variety that might even look almost human by using my spew code, CPANned as Inline::Spew. -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply]

Back to Cool Uses for Perl

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: CUFP [id://580880]
Approved by Corion
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others taking refuge in the Monastery: (4)

As of 2024-04-25 12:41 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found