So I wrote something on my scratchpad and sent to Spenser, and he recommends posting it here for others to see. It takes a little bit of time fetching and parsing the data, but it does the trick, anyway :)
#!/usr/local/bin/perl use strict; use XML::LibXML; use CGI; use constant XML_SOURCE => 'http://www.perlmonks.org/index.pl?node_id= +30175'; sub main { my $parser = XML::LibXML->new(); my $dom = eval{ $parser->parse_file( XML_SOURCE ) }; die if $@; my $q = CGI->new(); print $q->header( -type => 'text/html' ), $q->start_html( -title => 'New Perl Questions' ), $q->b( "New Perl Questions" ), $q->br, $q->hr; foreach my $node ( $dom->findnodes( '/NEWESTNODES/NODE[ @nodetype += "perlquestion" ]' ) ) { print $q->a( { -href => sprintf( 'http://www.perlmonks.org/index.pl?node_id=%d', $node->findvalue( '@node_id' ) ) }, $node->textContent() ), $q->br; } print $q->end_html(); } main();
In reply to CGI to display newest questions only
by lestrrat
in thread Using XPath to Retrieve Remote XML Data
by Spenser
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |