#!/usr/bin/perl
 
use LWP::UserAgent;
use HTTP::Cookies;
use HTML::Entities;
 
$ua = LWP::UserAgent->new;
$ua->agent("Opera/9.25 (Windows NT 5.1; U; ru)");
 
$cookie_jar = HTTP::Cookies->new();
$ua->cookie_jar($cookie_jar);
 

sub logg
 
     {
        my ($data, $file) = @_;
        open(OUT, ">> ".$file);
        print OUT "$data\n";
        close(OUT);
     }
 

for ($i = 0; $i < 165; $i++)
 
     {
        my $ex = $ua->get('http://realty.1777.ru/search_real_poisk.php?ch=&ord=&poisk=&poisk2=&tabs=0&poisk5=&poisk3=&real_raz_id=&real_cat_id=35&ot=0&do=1000000000&sort=&mix=&pajina='.$i)->content();
       
        my @infos = $ex =~ /<td width=80% valign=top colspan=2><span class=header_red>(.+?)<noindex>/gs;
 
        foreach $info (@infos)
             {
                $info =~ s/ / /g; decode_entities($info); $info =~ s/<.+?>/ /g; $info =~ s/\s+/ /g; $info =~ s/^(.+?)\s//g;
 
                logg($info."\n\n", 'data.txt');
             }
 
        print('page '.$i."\n");
     }
 

system("pause");