lucia
Постоялец
- Регистрация
- 13 Окт 2009
- Сообщения
- 132
- Реакции
- 19
- Автор темы
- #1
Скрипт парсит RSS по заданному урл,подскажите как можно сделать так чтоб скрипт выбирал ссылки из файла .txt по списку,и ещё если возможно как-то игнарировал ошибки ......типа нет доступа к сайту.
Вот сам скрипт,в скрипте только исправил кодировку с utf8 на windows1251
#!/usr/bin/perl
use LWP::Simple;
use XML::RSS;
use HTML::Strip;
binmode(STDOUT, ":windows1251");
#my $url = "Для просмотра ссылки Войдиили Зарегистрируйся";
my $url = "Для просмотра ссылки Войдиили Зарегистрируйся";
$hs = HTML::Strip->new();
my $rss = XML::RSS->new();
my $data = get( $url );
$rss->parse( $data );
my $channel = $rss->{channel};
#my $title = $channel->{title};
#my $link = $channel->{link};
#my $desc = $channel->{description};
foreach my $item ( @{ $rss->{items} } )
{
my $link = $item->{link};
my $title = $item->{title};
my $desc = $item->{description};
print $title, "\n", $hs->parse($desc), "\n\n\n";
}
$hs->eof;
Вот сам скрипт,в скрипте только исправил кодировку с utf8 на windows1251
#!/usr/bin/perl
use LWP::Simple;
use XML::RSS;
use HTML::Strip;
binmode(STDOUT, ":windows1251");
#my $url = "Для просмотра ссылки Войди
my $url = "Для просмотра ссылки Войди
$hs = HTML::Strip->new();
my $rss = XML::RSS->new();
my $data = get( $url );
$rss->parse( $data );
my $channel = $rss->{channel};
#my $title = $channel->{title};
#my $link = $channel->{link};
#my $desc = $channel->{description};
foreach my $item ( @{ $rss->{items} } )
{
my $link = $item->{link};
my $title = $item->{title};
my $desc = $item->{description};
print $title, "\n", $hs->parse($desc), "\n\n\n";
}
$hs->eof;