и опять perl...и опять помогите пожалуйста

[Mix]

код

use IO::Socket;

if (@ARGV < 2) {

}

$server = $ARGV[0];

$dir = $ARGV[1];

$search = $ARGV[2];

$socket = IO::Socket::INET->new(Proto => "tcp",PeerAddr => "$server",PeerPort => "80") || die $socket error $!";

$exe = "http://$server/";

$exe .= $dir . $search;



print $socket "GET $exe HTTP/1.0\r\n\r\n";



while ($op = <$socket>) {



if ($op =~ /^www/) {

}

print $op;



}



хочу написать скрипт, который бы из поисковика выдергивал url

например, нужно найти все сайты с index.php?action=

я передаю $server, значение www.google.ru

$dir - если это google, то search?hl=

$search - inurl:index.php?action=

но получается 301 Moved, то есть "постоянно перемещаемый"

как можно замутить, чтоб скрипт переходил в поисковике, с страницы 1 на 2 и т.д.

или все это фигня и зря стараюсь

Comments

[th]

рекомендую посмотреть на LWP

Ну со страницей имхо все ясно - она должна в ГЕТ-параметрах передаваться

А для отладки соединения с серваком можно юзать: telnet www.google.ru 80

[Coutty]

Читал на liveinternet.ru сообщество кодеров. Так вот там тоже с Гуглом были проблемы. Он, козёл, то ли опознаёт скрипты, то ли ещё чего, но там толпа народа ничего сделать не смогла. Т.ч. =(

[Mix]

Coutty

блин =(

ведь такую шняжку с inurl нигде кроме гугля не замутишь =(