Форум программистов [Powered by Invision Power Board]

Код

#! perl -w

use strict;
use LWP::Simple;

my @num;
my @links;
my $url='http://www.yandex.ru';
my $action = '/yandsearch';
my $form_name = 'stype';
my $search_type = 'www';
my $input_name = 'text';
my $select_value = 'numdoc';
my $value_num = '50'; 
my $p;
my $next_link;
my $req;
my $link;
my $num_search;
my $correct=0;
my $search = "www.forum-spain.ru";
my $value = 'forum';

$req = $url.$action.'?'.$form_name.'='.$search_type.'&'.$input_name.'='.$value.'&'.$select_value.'='.$value_num;

    while (get( $req )) 
        {    
            $next_link = get( $req );
            $p=$next_link;
                
                if($p =~ s/\<a\stabindex\=\"(\d{1,2})\".*?href\=\"(http:\/\/$search.*?)\"//)
## ищу в тексте строку вида   <a tabindex="11" onclick="r(this, 'iweb/path=80.22.82/vars=84=94');" href="http://www.wcg.ru/games/##index.phtml?id=4&rules=1" target="_blank">WCG - Игры</a>
##вырезаю из неё адрес и положение адреса (значение tabindex'а)

                    {
                        push( @num, $1."\n");
                        push( @links, $2."\n" );
                    last;
                    }
                
                if ($next_link =~ /\"next\"\shref\=\"(\/.*?)\"/)
##ищу ссылку на следующую страницу
                    {
                        $link=$1;
                        $req = $url.$link;
                        $correct=$correct+50;
##увеличываю $correct на 50, так как среди предыдущих 50 адресов страница не найдена
                    }
                else 
                    {
                        last;
                    }
        }

$num_search=$num[0]+$correct-1;
## -1, так как значение tabindex'а равно положения сайта +1

print "CTPAHuLlA @links 3AHuMAET\n$num_search MECTO HA yandex.ru no 3AnPOCy $value\n";