Испытание на проникновение с Perl не объектно-ориентированное

Question

Это один из самых первых случаев, когда я писал на форуме. Обычно просто читать достаточно, чтобы найти то, что я ищу.

У меня есть достойная основа с Perl, и я хотел бы провести с ней тестирование на проникновение. Моя проблема в том, что каждый учебник или книга, которую я нахожу, работает с LWP, объектно-ориентированным, и я откровенно ненавижу объектно-ориентированное программирование (это не имеет для меня никакого смысла, как функциональное программирование). Если есть какой-либо модуль CPAN для «веб-программирования», который может работать без ООП, Google очень стесняется сказать мне.

Несмотря на то, что это должно быть много работы, я хотел бы написать LWP-подобный модуль, но с функциональным стилем программирования вместо OOP.

Главный вопрос: с чего начать? Я очень мало нашел в программировании сокетов с Perl, который не использует LWP или какой-то неясный модуль Perl. Чем меньше я буду использовать CPAN, тем больше я буду счастлив.

Я понимаю, что это немного напоминает изобретательство колеса, но я хочу сделать это в основном для удовольствия, а иногда это лучший способ узнать.

Answer 1

socket, bind, listen и accept - это самые основные функции, которые вы ищете для реализации серверных функций; socket и connect являются клиентскими.

Раздел Sockets: Клиент/Сервер связи в perldoc perlipc должны дать дальнейшие рекомендации. Функции, упомянутые здесь, непосредственно сопоставляются с соответствующими системными вызовами. Более низкоуровневый (и более болезненный), чем вы не могли надеяться найти.

Будучи страстным ненавистником чрезвычайно сложного и раздутого ООП, я хотел бы дать вам совет, чтобы взглянуть на то, как ООП выполняется на Perl. Может быть, вы влюбитесь в это, как я когда-то.

Будучи не более чем bless ed хешей сами. Нежелание использовать какие-либо объекты Perl более или менее эквивалентно тому, что вы вообще не хотите использовать какие-либо хеши.

Answer 2

Я настоятельно рекомендую вам узнать, как Perl обрабатывает объектно-ориентированное программирование. Я считаю, что это, безусловно, лучшее введение в ООП, поскольку оно ничего не скрывает, и все механизмы раскрыты.Класс - это пакет, метод - это подпрограмма, а ваш конструктор - это еще один метод.

Вам, вероятно, не придется создавать классы Perl самостоятельно, если вы пишете небольшие служебные программы, но как только вы захотите использовать другие народные библиотеки, вам, вероятно, понадобится знать, как использовать OO Perl

LWP, возможно, является одной из наиболее сложных библиотек, так как он имеет несколько разных классов, но помните, что the documentation должен описывать функциональность в целом и, по крайней мере, изначально, вы не будете использовать большую часть того, что доступно

Чтобы получить простую веб-страницу, вам нужно всего лишь t о сделать, это создать LWP::UserAgent объект и использовать его для get в URL вы заинтересованы в

use LWP; 

my $ua = LWP::UserAgent->new; 
my $res = $ua->get('http://www.example.com/'); 

Теперь у вас есть HTTP::Response объект, $res, и вы можете прочитать documentation for that class увидеть, какие методы он поддерживает, например, проверка состояния и извлечения HTTP заголовки и тело сообщения

Это в значительной степени все, что простое программирование LWP, но есть много вариантов, чтобы в более сложных ситуациях, если вам нужно их

В заключение, стоит отметить, что есть уже функциональный HTTP-модуль под названием LWP::Simple. Если вам нужна самая базовая функциональность, вы можете написать только

use LWP::Simple; 

my $body = get('http://www.example.com/'); 

и вы получили веб-страницу. Конечно, это не позволяет вам проверить статус транзакции HTTP и заголовки в ответном сообщении, поэтому, если вам нужна эта возможность или больше, вам нужно использовать стандартный интерфейс LWP.