Есть скрипт на перле, но чёт я не долюбливаю перл, вот и не получаеться! Не поможете переделать скрипт на пхп!?

Помогу, ты скинул бы скрипт сюда!
Переделать можно, если перловский не юзает каких-то дополнительных модулей!

З.Ы. А чем те перл не угождает?

Модератор: Название темы должно отражать ее суть!

Admin
В следующий раз буду правильней.

Chuck

#!/usr/bin/perl
#Поключаем модуль с сокетами
use Socket;

#сервер, собирающими данные с показавающихся баннеров (без http:// и указания дальнейшей структуры)

$site="exchange.com";


#Варианты переменных окружения которые мы будем подставлять случайным образом
$user_ag{0}="Mozilla/3.0 (compatible\; MSIE 4.0\; Windows NT 4.0)";
$user_ag{1}="Mozilla/4.0 (compatible\; MSIE 6.0\; Windows NT 5.1)";
$user_ag{2}="Mozilla/4.0 (compatible\; MSIE 5.5\; Windows 98)";
$user_ag{3}="Mozilla/4.0 (compatible\; MSIE 5.0\; Windows 98)";
$user_ag{4}="Mozilla/3.0 (compatible\; MSIE 5.0\; Windows 98)";
$user_ag{5}="Mozilla/4.0 (compatible\; MSIE 5.4\; Windows NT 4.0)";

$ref{0}="http://site.ru";
$ref{1}="http://www.site.ru/";
$ref{2}="http://site.ru/page.html";
$ref{3}="http://site.ru/page2.html";

#Выбираем случайные переменные окружения
$r = int(rand(3));
$refer = "$ref{$r}";

#Выбираем случайное количество циклов (в каждом цикле по запросу), что бы нельзя было вычислить по переодичности
$main = int(rand(25));



$AF_INET=2;
$SOCK_STREAM=1;
$protocol=(getprotobyname('tcp'))[2];
$end="\015\012";
$u=0;
#Читаем список анонимных проксей из тесктового файла
open (F,"proxy.txt") || print "$!";
@proxy2 = <F>;
close (F);

#Общее количество записей - строчек в файле (на срочку один прокси с портом)
$all_proxy = @proxy2;


#Начинаем циклическое подключение к серверу, собирающими данные с показавающихся баннеров
while ($u<$main)
{
#Выбираем случайную проксю
$id_pro = int(rand($all_proxy));
#Вытаскиваем из строчки проски и порт
($proxy,$port)= split(/\:/,$proxy2[$id_pro]);
#Скрипт, который собирает информаация на сервере банеробменника с подстановкой всех нужных параметром (простой GET запрос)
$cur='/cgi-bin/bannerpokaz.cgi?id=xxx';
#Пошло подключение
$addr=(gethostbyname($proxy))[4];
$addrs=pack ('S n a4 x8', $AF_INET, $port, $addr);

{
if (!(socket(LOAD,$AF_INET,SOCK_STREAM,$protocol)))
{

print "Content-Type: text/html\n\n";
print "Невозможно создать сокет!";
exit;
}
if (!(connect(LOAD, $addrs)))
{
print "Content-Type: text/html\n\n";
print "Ошибка! $!";
exit;
}
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=<LOAD>;
close (LOAD);
}
}