Я обращаюсь к станицам через прокси
Вот синтиксис:
use Socket;
$site="site.ru";
$cur=\'/test.html\';
$proxy="93.194.70.123";
$port="6588";
$AF_INET=2;
$SOCK_STREAM=1;
$protocol=(getprotobyname(\'tcp\'))[2];
$end="\\015\\012";
$addr=(gethostbyname($proxy))[4];
$addrs=pack (\'S n a4 x8\', $AF_INET, $port, $addr);
{
if (!(socket(LOAD,$AF_INET,SOCK_STREAM,$protocol)))
{
print "Невозможно создать сокет на прокси: $proxy ";
}
if (!(connect(LOAD, $addrs)))
{
print "Ошибка подключения";
}
select(LOAD);
$|=1;
select(STDOUT);
print LOAD "GET
http://$site$cur HTTP/1.0$end";
print LOAD "Content-Type:application/x-www-form-urlencoded$end";
print LOAD "Accept: text/html$end";
print LOAD "Accept: image/jpeg$end";
print LOAD "User-Agent: $user$end";
print LOAD "Accept: image/gif$end";
print LOAD "Accept: image/x-xbitmap$end";
print LOAD "Referer: $refer/$end";
print LOAD "Accept: image/pjpeg$end";
print LOAD "Authorization: Basic $encoded$end";
print LOAD "$end$end";
@str=
;
close (LOAD);
}
В данном формате запроса, как вставить то, что вы написали? Принцип понятен, но синтаксис пока для меня остается китайской грамотой.
Заранее благодарю.