тур

#!/usr/bin/perl use XML::Parser; use Data::Dumper; use LWP::UserAgent; use Text::Iconv; print "Content-Type: text/html; charset=windows-1251\n\n"; my $data; my $ua = LWP::UserAgent->new; $ua->timeout(10); my $response = $ua->get( 'http://export.turizm.ru/cgi-bin/rss.pl' ); if ($response->is_success) { $data = $response->content; my $utf2win = Text::Iconv->new( 'utf-8', 'cp1251' ); # my $win2utf = Text::Iconv->new( 'cp1251', 'utf-8' ); my $p1 = new XML::Parser(Style => 'Tree'); my $ref = $p1 -> parse($data); $items = $$ref[1]; my $strNews = ""; my $line = "%s
%s
%s"; for ($i=3; $i < scalar @{$$items[4]}; $i+=4){ if($$items[4][$i] eq "item") { $j = 3; # $$items[4][$i+1][$j+1][2] - title - заголовок новости # $$items[4][$i+1][$j+5][2] - link - ссылка на новость # $$items[4][$i+1][$j+9][2] - author - автор новости # $$items[4][$i+1][$j+13][2] - pubDate - дата публикации # $$items[4][$i+1][$j+17][2] - description - текст новости $strNews .= sprintf $line, $$items[4][$i+1][$j+5][2], $utf2win->convert($$items[4][$i+1][$j+1][2]), $utf2win->convert($$items[4][$i+1][$j+17][2]), $utf2win->convert($$items[4][$i+1][$j+9][2]); } } print "$strNews
"; }

Образ. Презентация

Югорск

Реклама

Новости

Подписка на новости

Авторизация

           
Новости ХМАО-ЮГРА
TURIZM.RU: Новости туризма - лента туристических новостей

Самое читаемое