Форум Практика оптимизации Сервисы и программы для работы с SE

Проверка беков при ручном обмене

Утка-робот
На сайте с 08.07.2008
Offline
222
Утка-робот
360

Есть ли софтинка, которая периодически или в ручном режиме сможет проверять наличие ссылок на заданных страницах на мой домен? Примерно, как это делает LinkExchanger.

I
На сайте с 21.02.2008
Offline
117
ippoman
#1

Вот простой скриптик, который может проверять обратные ссылки в ручном режиме.


#!/usr/bin/perl

use strict;
use LWP::UserAgent;

my $my_url = "http://site.ru/";

open( my $fh, "pages.txt" ); #Сюда загоняем страницы на которых размещены ссылки
my @pages = <$fh>;
close( $fh );

my $ua = LWP::UserAgent->new(agent => 'Mozilla/4.0 (compatible; GoogleToolbar 2.0.111-big; Windows XP 5.1)' );

foreach my $url_page ( @pages ) {
chomp( $page );
my $response = $ua->get($url_page);

if ( $response->is_error() ) {
#Ошибка
print $page, " - ", "Ошибка\n";
}
else {
my $content = $response->content();
if ( $content =~ /(href\s?=['"]?$my_url['"]?)/ ) {
print $page, " - Ссылка есть!\n";
}
}
}
close( $fh1 );

Авторизуйтесь или зарегистрируйтесь, чтобы оставить комментарий