Как выполнить HTTP-перенаправление с CGI.pm в Perl?

Question

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

my $q = new CGI;
q->redirect(" http://www.google.com ");

Answer 1

Требуется ли CGI наверху?

use CGI;
my $query=new CGI;
print $query->redirect('http://www.foo.com');

это работает для меня

Answer 2

Я выяснил, в чем проблема, я пытался перенаправить после того, как напечатал статус 200 ok, что привело бы к печати URL-адреса страницы вместо ее перенаправления

Answer 3

Есть ли цель пробелы вокруг URL? В зависимости от того, что делает библиотека CGI, они могут представлять проблему. Я мог видеть, как он преобразует ваш URL в% 20 http://www.google.com%20, который не будет загружаться правильно ...

Редактировать : Похоже, что при тестировании он не приносит ничего вредного, кроме как быть переданным прямо в браузер. С другой стороны, вам не хватает use, $ и print в вашем коде - это тот код, который вы пытаетесь использовать, или что-то еще?