|Perl: the Markov chain saw|
Random NonHome Nodesby blakem (Monsignor)
|on Aug 21, 2001 at 13:03 UTC||Need Help??|
I heard that comment again today.... "I wish the Random Node button would exclude all those boring empty home nodes." How many of us have clicked the Random Node button a few times, only to tire after clicking-through one too many unattended homenodes?
I wrote a quick CGI that will do this clicking-through for you. It will grab up to five random nodes and send you off to the first non-homenode it finds. This should keep you from landing on the most desolate of nodes.
Its just a quick hack and I do know how to HTML::Parse, and LWP::UserAgent so keep that in mind.
Here is the code running under mod_perl/mason:
Feel free to take the code and run with it, or go to your user settings and Add
<A HREF="http://perlmonks.thepen.com/scripts/randomnode.pl">Random NonHome Node</A>
to your personal nodelet.