The OpenNET Project / Index page

[ новости/++ | форум | wiki | теги ]

Обработка RSS и Atom лент на языке Perl
Для обработки RSS/Atom лент удобно использовать perl модуль XML::Feed, у
которого есть один неприятный недостаток - необходимость установки очень
большого числа зависимостей. Для работы XML::Feed во FreeBSD нужно установить
около 100 дополнительных Perl модулей, не входящих в состав Perl 5.8.

В качестве альтернативы с похожим синтаксимои и минимальным числом зависимостей
можно предложить модуль XML::FeedPP (http://search.cpan.org/dist/XML-FeedPP/),
в зависимостях у которого значится только XML::TreePP
(http://search.cpan.org/dist/XML-TreePP/). Отрицательной чертой XML::FeedPP
является невысокая производительность, так как модуль целиком написан на Perl,
без привлечения библиотек подобных expat и libxml.

Простой пример парсинга RSS, RDF  или Atom ленты:

   #!/usr/bin/perl
   use strict;
   use XML::FeedPP;
   my $feed = XML::FeedPP->new( './test.xml'); # Вместо файла можно указать URL

   print "Заголовок ленты: ", $feed->title(), "\n";
   print "Дата: ", $feed->pubDate(), "\n";
   
   # Выводим список новостей, отраженных в ленте
   foreach my $item ( $feed->get_item() ) {
        print "URL: " . $item->link() . "\n";
        print "Title: " . $item->title() . "\n";
   }

Кроме $item->link() и $item->title(), у объекта $item имеются следующие методы:
$item->description(), $item->pubDate(),  $item->category(), $item->author(),
$item->guid(), $item->get( произвольное_имя_параметра).

Для преобразования нескольких Atom и RSS в один RSS можно использовать:

   # создаем пустой RSS файл
   my $feed = XML::FeedPP::RSS->new(); 

   # присоединяем локальный atom файл
   $feed->merge("atom.xml");

   # присоединяем удаленный RSS
   $feed->merge( "http://www.test.com/rss.xml" ); 

   # меняем время модификации.
   my $now = time();
   $feed->pubDate( $now ); 

   # меняем название ленты
   $feed->title( "Sumary news" );

   # добавляем в ленту свой элемент (заголовок Test, ссылка http://test.com/news/1, id 12345)
   my $item = $feed->add_item( "http://test.com/news/1" );
   $item->title( "test" );
   $item->pubDate( "2009-02-23T14:43:43+09:00" );
   $item->guid(12345);

   # сохраняем в строку $rss_str готовую RSS ленту
   my $rss_str = $feed->to_string();
   # или сохраняем в файл
   $feed->to_file( "index.rss" );
 
18.12.2009
Ключи: rss, atom, xml, perl, parser / Лицензия: CC-BY
Раздел:    Корень / Программисту и web-разработчику / Perl / Полезные подпрограммы на Perl / Работа с сетью и IP адресами на Perl

Обсуждение [ RSS ]
 
  • 1, Nas_tradamus, 17:02, 21/12/2009 [ответить] [смотреть все]
  • +/
    Ого как легко.
    На php пришлось самому писать парсер Atom, так как не был найден ни один нормальный готовый.
     
  • 2, ffsdmad, 13:55, 22/12/2009 [ответить] [смотреть все]
  • +/
    чёрт, до чего дожили
     

    Ваш комментарий
    Имя:         
    E-Mail:      
    Заголовок:
    Текст:



      Закладки на сайте
      Проследить за страницей
    Created 1996-2017 by Maxim Chirkov  
    ДобавитьРекламаВебмастеруГИД  
    Hosting by Ihor