ANTICHAT — форум по информационной безопасности, OSINT и технологиям

#! /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);