Какой модуль можно использовать для анализа RSS-каналов в сценарии Perl CGI? - PullRequest
Новая
       22

Какой модуль можно использовать для анализа RSS-каналов в сценарии Perl CGI?

5 голосов
/ 06 июля 2010

Я пытаюсь найти парсер RSS, который можно использовать со скриптом Perl CGI.Я нашел simplepie, и это действительно простой анализатор для использования в сценариях PHP.К сожалению, это не работает со скриптом Perl CGI.Пожалуйста, дайте мне знать, если есть что-нибудь, что легко использовать, например simplepie.

Я сталкивался с этим RssDisplay , но я не уверен насчет использования, а также насколько он хорош.

Ответы [ 2 ]

6 голосов
/ 06 июля 2010

Из CPAN : XML :: RSS :: Parser .

XML :: RSS :: Parser являетсяоблегченный либеральный парсер RSS-каналов.Этот синтаксический анализатор является «либеральным» в том смысле, что он не требует соответствия определенной версии RSS и пытается изящно обрабатывать теги, которые он не ожидает или не понимает.Единственные требования синтаксического анализатора - это то, что файл представляет собой правильно сформированный XML и удаленно напоминает RSS.

#!/usr/bin/perl

use strict; use warnings;

use XML::RSS::Parser;
use FileHandle;

my $parser = XML::RSS::Parser->new;

unless ( -e 'uploads.rdf' ) {
    require LWP::Simple;
    LWP::Simple::getstore(
        'http://search.cpan.org/uploads.rdf',
        'uploads.rdf',
    );
}
my $fh = FileHandle->new('uploads.rdf');
my $feed = $parser->parse_file($fh);

print $feed->query('/channel/title')->text_content, "\n";

my $count = $feed->item_count;
print "# of Items: $count\n";

foreach my $i ( $feed->query('//item') ) {
    print $i->query('title')->text_content, "\n";
}
1 голос
/ 06 июля 2010

Доступные модули Perl

  • XML :: RSS :: Инструменты

  • XML:: RSS :: Parser : 

    #!/usr/bin/perl -w
use strict;

use XML::RSS::Parser;
use FileHandle;

my $p = XML::RSS::Parser->new;
my $fh = FileHandle->new('/path/to/some/rss/file');
my $feed = $p->parse_file($fh);

# output some values 
my $feed_title = $feed->query('/channel/title');
print $feed_title->text_content;
my $count = $feed->item_count;
print " ($count)\n";
foreach my $i ( $feed->query('//item') ) { 
   my $node = $i->query('title');
   print '  '.$node->text_content;
   print "\n"; 
}

  • XML :: RSS :: Parser :: Lite (Pure Perl): 

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

my $xml = get("http://url.to.rss");
my $rp = new XML::RSS::Parser::Lite;
$rp->parse($xml);

print join(' ', $rp->get('title'), $rp->get('url'), $rp->get('description')), "\n";

for (my $i = 0; $i < $rp->count(); $i++) {
   my $it = $rp->get($i);
   print join(' ', $it->get('title'), $it->get('url'), $it->get('description')), "\n";
}

  • dirtyRSS : 

    use dirtyRSS;

$tree = parse($in);
die("$tree\n") unless (ref $tree);
disptree($tree, 0);
...