Есть ли альтернатива YSlow на Perl?

Вы можете попробовать WWW: :Mechanize::Timed, который расширяет Модуль WWW::Mechanize. Функции ::Timed позволят вам собирать информацию о том, сколько времени занимают ваши запросы. Базовый модуль ::Mechanize, который сам является подклассом LWP::UserAgent, предоставит вам доступ к вашему ответу, включая заголовки, основной текст и изображения. Из них вы можете вычислить общий «вес» страницы, количество запросов и т. д. Это не охватывает всего, что делает YSlow (разоблачение внутренних механизмов DNS, лежащих в основе gethostbyname, было бы хорошим трюком!), но я надеюсь, что это место для начала, если я правильно понял ваш вопрос.

Вы можете запустить Perl CGI (или любую программу на Perl) несколько раз под профилировщиком и просмотреть общие черты. Я не видел такого веб-интерфейса, но если у вас есть контроль над Perl-стороной, документация находится здесь:

http://www.perl.com/pub/a/2004/06/25/profiling.html

В основном это сводится к запуску вашей Perl-программы с параметром -d:DProf, а затем, после ее завершения, к запуску dprofpp в том же каталоге:

# perl -d:DProf ./foo.pl
# dprofpp

Обновлять:

Да, это не то же самое, что профилирование протокола, как должным образом отмечено ниже, но для perl не существует альтернативы. Если вы пытаетесь выяснить, откуда берется часть медлительности perl, профилирование perl — хорошее место для начала. Такие продукты, как YSlow, будут отслеживать его чисто протокольные аспекты, независимо от того, является ли CGI perl, php или python.

Лично я использую его для профилирования моего сайта django, который находится на python и flash, и я профилирую их отдельно от протокольной части системы, для которой я также использую YSlow.

Кроме того, существуют Perl-плагины для "ddd", которые хотя бы сделают его графическим:

http://www.gnu.org/software/ddd/

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