Парсер/Чекеры на заказ

Приветствую всех!

Напишу для вас чекеры аккаунтов, парсеры.

От 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

Отзывы тут