скрипт определения обратных ссылок

вероятно этот ?

Может быть кому будет полезен скриптик.

Тестировал фриварные программки для проверки обраток, ничего нормального и недорогого не нашел. Сделал свой на перле - все довольно просто: запускать в командной строке:

----------------

#!/usr/bin/perl

use strict;

use LWP::UserAgent;

use LWP::ConnCache;

$|=1;

open (FILE, 'links.txt');

my @array = <FILE>;

close FILE;

my %count = (

'good' => 0,

'bad' => 0

);

my ($url, $result);

format STDOUT =

@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<@<<<<<<<

$url, $result

.

foreach (@array)

{

chomp;

unless ($_ =~ m|http://|i) {$_ = "http://$_"; }

my $temp = get_url($_);

if ($temp =~ /ввв\.вашсайт\.ру/i)

{

$count{'good'}++;

$result = "OK";

}

else

{

$count{'bad'}++;

$result = "-";

}

$url = $_;

write;

}

print "Good: $count{'good'}\n";

print "Bad: $count{'bad'}\n";

sub get_url ($)

{

my $url=shift;

my $useragent = new LWP::UserAgent();

$useragent->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)");

$useragent->conn_cache(LWP::ConnCache->new());

my $request = new HTTP::Request( GET => $url );

$request->referer("");

$request->init_header("Accept" => "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/msword, application/x-shockwave-flash, */*");

$request->init_header("Accept-Language" => "en-us,ru;q=0.5");

my ( $response, $result, $code );

$response = $useragent->request($request);

if ( $response->is_success )

{

$result = $response->content;

$code = 1;

}

else

{

$result = $response->status_line;

$code = 0;

}

if ($code == 1)

{

#OK

return $result;

}

else

{

#error

return undef;

}

}

------------------

список проверяемых урлов надо положить в файл : links.txt

а в коде соответственно подправить строку, которая ищется на этих сайтах.