(Perl) Read RSS Feed

Sample code showing how to read an RSS feed and emit the contents.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

$rss = chilkat::CkRss->new();

# Download from the feed URL:
$success = $rss->DownloadRss("http://www.nytimes.com/services/xml/rss/nyt/HomePage.xml");
if ($success != 1) {
    print $rss->lastErrorText() . "\r\n";
    exit;
}

# Get the 1st channel.
# rssChannel is a Rss
$rssChannel = $rss->GetChannel(0);
if ($rss->get_LastMethodSuccess() == 0) {
    print "No channel found in RSS feed." . "\r\n";
    exit;
}

# Display the various pieces of information about the channel:
print "Title: " . $rssChannel->getString("title") . "\r\n";
print "Link: " . $rssChannel->getString("link") . "\r\n";
print "Description: " . $rssChannel->getString("description") . "\r\n";

# For each item in the channel, display the title, link,
# publish date, and categories assigned to the post.
$numItems = $rssChannel->get_NumItems();

for ($i = 0; $i <= $numItems - 1; $i++) {
    # rssItem is a Rss
    $rssItem = $rssChannel->GetItem($i);

    print "----" . "\r\n";
    print "Title: " . $rssItem->getString("title") . "\r\n";
    print "Link: " . $rssItem->getString("link") . "\r\n";
    print "pubDate: " . $rssItem->getString("pubDate") . "\r\n";

    $numCategories = $rssItem->GetCount("category");

    if ($numCategories > 0) {
        for ($j = 0; $j <= $numCategories - 1; $j++) {
            print "    category: " . $rssItem->mGetString("category",$j) . "\r\n";
        }

    }

}