Здрасте
Скажите пожалусто как можно запустить перл скрипт на 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;
сокет создать через поксик
Спасибо за внимание