Waiting for Newest Nodes to refresh has been killing me lately, and seeing Jaap's discussion about mirroring or proxies, I got the itch to try something.
I called it 'The Perl Monks Scrolls' and the first iteration can be found at http://www288.pair.com/mhicks/pmScrolls/.
Opinions, insights, complaints, foolish-mortal mistakes, etc?use LWP::UserAgent; use XML::LibXML; use XML::LibXSLT; my $parser = XML::LibXML->new(); my $xslt = XML::LibXSLT->new(); my $source = $parser->parse_string( getURL( "http://www.perlmonks.org/index.pl?node=Newest%20Nodes%20XML%20Genera +tor;days=0.5" )); my $style_doc = $parser->parse_file('/usr/home/mhicks/pmScrolls/pm_new +est.xsl'); my $stylesheet = $xslt->parse_stylesheet($style_doc); my $results = $stylesheet->transform($source); print $stylesheet->output_string($results); sub getURL { my $url = shift; my $request = HTTP::Request->new(GET => $url); my $ua = LWP::UserAgent->new; my $response = $ua->request($request); return $response->content(); }
--Solo
--
There's no mystical energy field that controls my destiny. It's all a lot of simple tricks and nonsense.
In reply to The Perl Monks Scrolls by Solo
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |