Folks-
I'm having my Friday moment a little early this week...
Needing to learn about the LWP::Simple module, I wanted to cobble up a quick test program. What to do... what to do... then, I began to wonder... What is the lowest PM node_id I have access to?
I put the sleep in there so I didn't overload the server too much.use strict; $|++; use LWP::Simple qw($ua get); $ua->proxy('http', 'http://myproxy'); # Skip nodes 0 and 17... # for my $id (1..16, 17..50) { Ooops... for my $id (1..16, 18..50) { my $url = "http://www.perlmonks.org/?node_id=$id"; print "$url: "; my $content=get($url); if ( ($content) && ($content!~/You don.t have access to that node. +/) ) { print "Good\n"; last } else { print"\n" }; sleep 2; }
node_id=0: Ok, this is the Monastery gates, that doesn't count.
Hmmm, doesn't seem to work as a reference though - [id://]
node_id=17: is goofed up somehow, check it out [no such node, ID 17]
node_id=23: seems to be the winner Everything 2 Idea List
Now my paranoia kicks in. What do nodes 1..16,18..22 contain? What are the gods hiding? Are they talking about me...
-Craig
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: How Low Can I Go?
by ambrus (Abbot) on Oct 16, 2007 at 20:35 UTC | |
Re: How Low Can I Go?
by Corion (Patriarch) on Oct 16, 2007 at 20:29 UTC | |
Re: How Low Can I Go?
by theorbtwo (Prior) on Oct 17, 2007 at 08:37 UTC | |
Re: How Low Can I Go?
by amarquis (Curate) on Oct 16, 2007 at 20:29 UTC | |
by cmv (Chaplain) on Oct 16, 2007 at 20:43 UTC | |
Re: How Low Can I Go?
by amarquis (Curate) on Oct 17, 2007 at 18:32 UTC |
Back to
Perl Monks Discussion