Решил я тут все-таки написать аналогичный скрипт на Perl.
Нам понадобятся два модуля:
LWP::Simple - взятие содержимого файла с другого сайта
XML::RSS - парсер для RSS. Если вы его ставите, то в подкаталог Perl, где лежат файлы .enc модуля необходимо скопировать соответсвующие файлы с тем же расширением из
этого архива
cyrillic - модуль для работы и конвертирования кириллического текста.
Вот сам код:
Код:
use LWP::Simple;
use XML::RSS;
use cyrillic;
my $filr="имя_файла_для_хранения_RSS_на вашем_сайте";
my $urls="URL_RSS-ленты";
$ll=time();
@fileatr=stat($filename);
$modif=$ll-$fileatr[9];
if ( !$fileatr[9] || ($modif > 3600) ) {
$rsscont = get($urls);
open (RSF, ">$filename");
print RSF $rsscont;
close RSF;
}
my $rss=XML::RSS -> new;
$rss -> parsefile($filename);
$inews=0;
my @items=@{$rss -> {items}};
foreach my $item (@items) {
$aa=$item -> {'title'}; # Заносим в переменную $aa очередной заголовок
$aa=cyrillic::convert( utf, win, $aa ); # Переводим из юникода
$bb=$item -> {'link'}; # Заносим в переменную $bb адрес этого поста
print "<br>$aa --- $bb "; # Выводим в нужном нам виде
}
Если кто может предложить более простое решение - буду рад.