Forum Webscript.Ru

Программирование => Perl => Тема начата: DNK от 11 Марта 2006, 23:55:39

Название: Perl & Unix
Отправлено: DNK от 11 Марта 2006, 23:55:39

Здрасте
Скажите пожалусто как можно запустить перл скрипт на LInux\'е через прокси

Или как в скрипте:

#!/usr/bin/perl

use IO::Socket;
open(OUT,">adres.txt");
$id=123;
while($id<555)
{
$socket = IO::Socket::INET->new(PeerAddr => \'***.***.***.***\',
                                 PeerPort => \'80\',
                                 Proto    => \'tcp\');
 print $socket "GET /put/kscripty/skript.jsp?id=$id HTTP/1.1\\r\\n";
 print $socket "Host: http://www.site.ru\\r\\n";
 print $socket "Authorization: Basic base64("User:Password")\\r\\n\\r\\n";
 while ($answer = <$socket>)
 {
         print OUT $answer;
 }
 $id++;
 print $id;
close($socket);
}
exit;

сокет создать через поксик
Спасибо за внимание

Название: Perl & Unix
Отправлено: cr4ck3r от 15 Марта 2006, 16:56:20

Идея примерно такая - создаешь соединение с прокси-сервером (стандартно через IO::Socket или Socket), и посылаешь запрос на этот прокси, только заместо:
GET /put/kscripty/skript.jsp?id=$id HTTP/1.1\\r\\n
у тебя будет примерно это:
GET http://host.com/put/kscripty/skript.jsp?id=$id HTTP/1.1\\r\\n