Форум АНТИЧАТ - Как позаимствовать с сайта информер на свой?

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)

- - Как позаимствовать с сайта информер на свой? (https://forum.antichat.xyz/showthread.php?t=115501)

Как позаимствовать с сайта информер на свой?

Очень интересует http://www.liveinternet.ru/ Программа передач и Погода.

Цитата:

Как позаимствовать с сайта информер на свой? Очень интересует http://www.liveinternet.ru/ Программа передач и Погода.

file_get_contents && preg_match

че вы все одну точку зрения копипастите везде...
а как же

Код:

#!/usr/bin/perl

use IO::Socket;



$serv='www.xakep.ru';



$socket = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$serv", PeerPort => "80") || die("Not connect");



        print $socket "GET $path HTTP/1.1\n";

        print $socket "Host: $serv\n";

        print $socket "Accept: */*\n";

        print $socket "Connection: close\n\n";





        while($s=<$socket>)

                {

                chomp($s);

                if($s=~/\<td>\<font face = \"Arial\" size = \"2\"\>(.*)\<\/font\>/)

                        {

                        $text=$1;

                        if($text=~/\<strong\>(.*)\<\/strong\>/){$razd_id=prov_razd($1);}

                        if($text=~/\<a href=\"(.*)\">(.*)\t\<\/a\>/){push(@stat,"$razd_id\|$1\|$2\n");}

                        }

                }

так чисто часть из своей парсерки выдернул для примера, но думаю смысл ясен