нужна программа, которая могла бы читать RSS ленты и сохранять их в текстовые файлы, предварительно удаляя или заменяя "лишние" символы (которые вводятся в отдельном поле)
Она должна читать подряд несколько лент с определенным (регулируемым) временным интервалом, адреса которых введены (или скопированы) в соответствующие поля, сохранять каждый из них в отдельный текстовый файл в специальной папке, а после окончания запускать другую программу (другая прога льет эти тексты в бегущую строку), лежащую в этой же папке и через тот самый интервал повторяла бы процесс по новому.
Примерный интерфейс прилагаю.
В общем у меня есть подобная программа (я ее сляпал в директоре плюс флэш) но там все очень криво, могу выслать чтобы вы лучше представили о чем идет речь
В частности меня не устраивает необходимость индивидуальной настройки под каждую ленту (у них почти у всех слегка разная структура) в принципе мне от каждой ленты необходимы следующие данные
1 <title>BBC News | Business | UK Edition</title> - название источника
2 а далее из каждого Item
<title>UK interest rates increased to 5%</title>
<description>The Bank of England raises UK interest rates by one quarter of a percentage point to 5%, the highest level in five years.</description>
<pubDate>Thu, 09 Nov 2006 12:30:22 GMT</pubDate>
Заголовок
Описание
Дата публикации
Почти во всех лентах есть дополнительные пункты, но мне нужны только эти и именно вэтом порядке
Еще надо чтобы введенные адреса сохранялись в проге(или во внешнем файле)и можно было бы ввести ограничение по количеству айтемов (типа не более определенного количества)
Необходимо чтобы программа имела две закладки (окна) одно для настройки, в котором можно было бы вводить адреса и символы для замены или удаления другое для исполнения.
Rss ридер
sub parse_news
{
$content=~ s/\n//g;
$content=~ s/\r//g;
$content=~ s/.*<\/lastBuildDate>//g;
#$content=~ s/(.*?)(<item>)/$2/g;
my @item=$content=~ /<item>(.*?)<\/item>/g;
$content=join("",@item);
@title= $content=~ /<title>(.*?)<\/title>/g;
@soob= $content=~ /<description>(.*?)<\/description>/g;
@date= $content=~ /<pubDate>(.*?)<\/pubDate>/g;
@guid= $content=~ /<guid>(.*?)<\/guid>/g;
@link= $content=~ /<link>(.*?)<\/link>/g;
#print join("\n",@date);
}
Например так :-)
{
$content=~ s/\n//g;
$content=~ s/\r//g;
$content=~ s/.*<\/lastBuildDate>//g;
#$content=~ s/(.*?)(<item>)/$2/g;
my @item=$content=~ /<item>(.*?)<\/item>/g;
$content=join("",@item);
@title= $content=~ /<title>(.*?)<\/title>/g;
@soob= $content=~ /<description>(.*?)<\/description>/g;
@date= $content=~ /<pubDate>(.*?)<\/pubDate>/g;
@guid= $content=~ /<guid>(.*?)<\/guid>/g;
@link= $content=~ /<link>(.*?)<\/link>/g;
#print join("\n",@date);
}
Например так :-)
может я не совсем правильно выразил свою мысль - мне нужно чтобы кто-нибудь за деньги сделал для меня такую прогу.