$p01nt
05.12.2008, 16:24
Приветствую всех!
Напишу для вас чекеры аккаунтов, парсеры.
От 5$
Пример простенький чекер баланса для биржы копирайтеров neosale.ru (без соксов, чекает только 1 указанный акк):
#! /usr/bin/perl
use warnings;
use LWP 5.64;
use HTTP::Cookies;
#Данные необходимые для авторизации
$loginurl='http://www.neosale.ru/user/authorization';
$login='login';
$pass= 'password';
#Авторизация
$browser=LWP::UserAgent->new;
$browser->cookie_jar( HTTP::Cookies->new);
$response=$browser->post($loginurl,
[ 'action'=>'authorization_verify',
'user_login'=>$login,
'user_password'=>$pass,
]);
#Получение странички с балансом
$response=$browser->get('http://www.neosale.ru/user/articles');
$response=$response->as_string;
#Парсинг странички с балансом и запись в файл balance.txt
@balance=$response=~m/<\/a>:(.*)<a/i;
open(BL,">>balance.txt"); print BL "Ваш баланс:@balance /n"; close(BL);
Jabber:spoint@thesecure.biz
ICQ: 1-331-336
Напишу для вас чекеры аккаунтов, парсеры.
От 5$
Пример простенький чекер баланса для биржы копирайтеров neosale.ru (без соксов, чекает только 1 указанный акк):
#! /usr/bin/perl
use warnings;
use LWP 5.64;
use HTTP::Cookies;
#Данные необходимые для авторизации
$loginurl='http://www.neosale.ru/user/authorization';
$login='login';
$pass= 'password';
#Авторизация
$browser=LWP::UserAgent->new;
$browser->cookie_jar( HTTP::Cookies->new);
$response=$browser->post($loginurl,
[ 'action'=>'authorization_verify',
'user_login'=>$login,
'user_password'=>$pass,
]);
#Получение странички с балансом
$response=$browser->get('http://www.neosale.ru/user/articles');
$response=$response->as_string;
#Парсинг странички с балансом и запись в файл balance.txt
@balance=$response=~m/<\/a>:(.*)<a/i;
open(BL,">>balance.txt"); print BL "Ваш баланс:@balance /n"; close(BL);
Jabber:spoint@thesecure.biz
ICQ: 1-331-336