0 / 0 / 0
Регистрация: 21.07.2017
Сообщений: 47
1

Perl и прокси

31.03.2018, 11:59. Показов 1917. Ответов 0
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Вот есть у меня скрипт для коннекта к сайту, так как можно сделать это через прокси? использовать http или socks прокси в perl
Perl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
my $paquete = "";
        $sock = IO::Socket::INET->new(PeerAddr => $host, PeerPort => $puerto, Proto => 'tcp');
        unless($sock) {
            print "\nError on connection...\n\n";
            sleep(1);
            next;
        }
        for($i=0;$i<$porconexion;$i++) {
            $ipinicial = $sumador->mas();
            my $filepath = $file;
            $filepath =~ s/(\{mn\-fakeip\})/$ipinicial/g;
            $paquete .= join "",$method," /",$filepath," HTTP/1.1\r\nHost: ",$host,"\r\nUser-Agent: ",$ua,"\r\nCLIENT-IP: ",$ipinicial,"\r\nX-Forwarded-For: ",$ipinicial,"\r\nIf-None-Match: ",$randsemilla,"\r\nIf-Modified-Since: Fri, 1 Dec 1969 23:00:00 GMT\r\nAccept: */*\r\nAccept-Language: es-es,es;q=0.8,en-us;q=0.5,en;q=0.3\r\nAccept-Encoding: gzip,deflate\r\nAccept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7\r\nContent-Length: 0\r\nConnection: Keep-Alive\r\n\r\n";
        }
        $paquete =~ s/Connection: Keep-Alive\r\n\r\n$/Connection: Close\r\n\r\n/;
        print $sock $paquete;
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.03.2018, 11:59
Ответы с готовыми решениями:

Авторизация на Perl (сессии на perl)
Привет. Учусь значит, сказали сделать небольшой сайт на perl, нужно сделать так, чтобы страницы...

Графика в Perl, как создать GIF в Perl.
Помогите создать GIF при помощи перла. И где взять модули?

Задачки на понимание Perl (Скользкие места Perl)
Задача на понимание списочных литералов что выведет каждая из строк $num = ('один', 'два',...

Переводчик кода Си в Perl(Convert C to perl)
Нужна такая вещь, а в идеале код такой программы.

0
31.03.2018, 11:59
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.03.2018, 11:59
Помогаю со студенческими работами здесь

Как обстоят дела с Perl 6 и Perl 5
Сразу скажу не являюсь Perl-программистом(ибо Python), но решил поинтерисоваться языком, и вот...

Запустить perl-скрипт из perl-скрипта
Доброго времени суток! Есть главный скрипт и ещё один. Последний нужно запустить из главного,...

Запуск скрипта Perl из скрипта Perl
Доброго времени суток! Подскажите/направьте, как собственно запустить скрипт из скрипта и получить...

Perl
Помогите задачку по перлу


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru