Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

RE: RE: PerlMonks Newest 10 Nodes Grabber

by httptech (Chaplain)
on May 05, 2000 at 00:10 UTC ( #10264=note: print w/replies, xml ) Need Help??


in reply to RE: PerlMonks Newest 10 Nodes Grabber
in thread PerlMonks Newest 10 Nodes Grabber

Yeah, but we can throw most of that snippet out the window now, as Vroom has told me about http://perlmonks.org/headlines.rdf

So here is the rewritten snippet. (Note that it now retrieves 12 headlines instead of 10. Or how many ever Vroom decides to put into headlines.rdf)

use LWP::Simple; $/ = undef; my $slurp = get("http://www.perlmonks.org/headlines.rdf"); push @node, [$1,$2] while $slurp =~ /<item>\s*<title\s*>([^<]*)<\/title>\s*<link\s*>([^< +]*)/gio; print map { "<a href=\"$_->[1]\">$_->[0]</a>\n" } @node;

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://10264]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (8)
As of 2018-01-19 12:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How did you see in the new year?










    Results (218 votes). Check out past polls.

    Notices?