XML::RSS::Parser 和 Facebook RSS feed ...

Question

我需要一个子例程来解析传递给它的“任何”RSS 提要。我已经多次使用 XML::RSS:Parser 来处理某些 RSS 提要，但它不适用于 Facebook。

示例代码：

use LWP::Simple;
use XML::RSS::Parser;

my $url = join '', @ARGV;
die "No URL passed" if !$url;

# facebook does not accept default LWP user agent
my $ua = LWP::UserAgent->new(agent => 'iGoogleBot');
my $res = $ua->get($url);
my $content = $res->decoded_content;

my $parser = XML::RSS::Parser->new;
my $feed = $parser->parse_string($content) or die $parser->errstr;
print "COUNT: ".$feed->item_count."\n";

Wired Facebook Feed 的结果

xf@serv:/tmp$ ./rss.pl 'https://www.facebook.com/feeds/page.php?id=19440638720&format=atom10'
Can't call method "contents" on an undefined value at /usr/local/share/perl/5.10.1/XML/RSS/Parser.pm line 122.

我认为 XML::RSS::Parsers 没有从根元素获取正确的命名空间，此后没有任何作用。想法如何解决这个问题？

我可以使用 XML::Simple 或类似的东西来解析 Facebook 的 RSS，但我想要一个解析器来处理所有 RSS 提要。

我将破解 XML/RSS/Parser.pm 来查找原因，但这不是仅更改 facebook 包的解决方案。这个 facebook feed 在 ie android RSS 阅读器中运行良好。

Answer 1

您确定收到有效的网络反馈吗？在尝试解析返回的内容之前，您可能应该检查 $res->is_error。当我刚刚尝试你的代码时，我收到了 500 错误。

另外，您还需要 Atom feed (&format=atom10)。您确定要使用 RSS 解析器来解析它吗？我在 XML::RSS::Parser 文档 其中提到它适用于 Atom feed。