Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • How about http://www.dpsinfo.com/dps/deadpeopleserver.rss.xml ?
    • There is not much info in there compared to the wikipedia.

      OK, so here's a rough RSS feed generator. Maybe I'll host it when I have my internet back.

      use strict;
      use XML::RSS::SimpleGen;

      our $url = qq(http://en.wikipedia.org/wiki/Recent_deaths);

      rss_new($url, "Recent Deaths", "Recent Deaths, by the Wikipedia");
      rss_language("en");

      get_url($url);

      while (
          m{
              <li>
              <a\s+href="[^"]*"\s+title="([^"]*)">\d*</a> # date
              \s*
              <a\s+href="([^"]*)"[^>]*>([^<]+)</a> # link and name
              (.*?) # bio
              </li>
          }xgs
      )
      { rss_item($2, $3, "$1: $3$4"); }

      rss_save('recentdeaths.rss', 45);