Тестирование на перенаправления в Perl

Question

Я надеялся проверить перенаправления веб-страниц с помощью Perl.Я пытался использовать LWP, но он только перехватывает 503 перенаправления, а не перенаправления htaccess или Javascript перенаправления.Любая помощь будет принята с благодарностью.

Спасибо

Answer 1

LWP по умолчанию обрабатывает перенаправления 3xx (я думаю, что вы вызываете эти перенаправления htaccess) для GET и HEAD, но вы можете изменить это, установив опцию reports_redirectable, или создав подкласс LWP и перехватив колбэк request_ok, или вместо этого вызвав simple_request запроса.

Для переадресации javascript вам потребуется обработать javascript; Я не уверен, что в настоящее время лучшим средством для этого является, но есть способы сделать это.

Возможно, вы также захотите проверить перенаправления обновления метатегов.

Answer 2

Или взгляните на WWW :: Mechanize и Test :: WWW :: Mechanize . Вы можете, например, перейти по какой-либо ссылке или нажать на какую-нибудь кнопку. Тогда вы можете просто проверить, соответствует ли код состояния ответа qr/3\d\d/