Форум АНТИЧАТ - Показать сообщение отдельно - [Perl] Новичкам: задаем вопросы

Цитата:

Сообщение от 1NtR0

Твой код ничего не выводит

Мой код пишет http-запрос в сокет, а выводить что-то должен твой код.

Кстати, если работешь с socks5, то попробуй еще модуль IO::Socket::Socks, он поудобней:

Код:

use strict;
use warnings;
use IO::Socket::Socks;

my $socks = new IO::Socket::Socks(
            ProxyAddr => '98.203.236.60',
            ProxyPort => 43981,
            ConnectAddr => '2ip.ru',
            ConnectPort => 80
    ) or die 'can\'t conect to proxy';

print $socks "GET / HTTP/1.1\n"
           . "Host: 2ip.ru\n\n";

print while <$socks>;

$socks->close();

BluR

Тут кодеры на вопросы отвечают, а не экстрасенсы. Показать свой сверхсекретный код не желаешь? (;