ANTICHAT - Показать сообщение отдельно - [Perl] Новичкам: задаем вопросы

Если тебе нужно получить только строку:

u=СТРОКА&s=&i=0.0&a_cd=СТРОКА
То вот тебе скрипт:

PHP код:


		
			
 #!/usr/bin/perl



 use Socket;



$host="www_САЙТ_ru"; #Замени на нужный тебе (Я уже знаю, какой тебе нужен и уже его проверил ) ^^

$port="80";



socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));



$iaddr = inet_aton($host);

$paddr = sockaddr_in($port, $iaddr);



connect(SOCK, $paddr);



$header = "GET /index.phtml HTTP/1.0\r\n"

."User-Agent: Opera/10.84 (Windows NT 5.1; U; ru)\r\n"

."Host: $host\r\n"

."Referer: http://chicks-for-hackers.com/\r\n"

."Proxy-Connection: close\r\n"

."Content-type: application/x-www-form-urlencoded\r\n\r\n";



send (SOCK, $header, 0);



@data=<SOCK>; 

close(SOCK);



$size = @data;

for ($i=0;$i<$size;$i++) {



$str=@data[$i]; 



 if ($str =~m/document.forms.auth.action/) { #Обрабатываем ответ, выдираем строчки, которые соответсвуютт шаблону



@parse = split("[?]",$str); #Разделяем строчку, тоесть в первый элемент массива parse будет строка до вопросительного знака, а второй элемент после, то что нам нужно



$out = @parse_need[1]; #Тут наша строка + 4 символа - "; и два пробельных 



$out = substr($out,0, length($out)-4); #Убираем 4 последних символа



print $out; #Выводим результат



exit; #Завершаем работу скрипта, т.к. другие строчки нас не интересуют



  }



}