Программирование > Perl

и снова кодировка

(1/1)

Biggelow:
Проблема вот в чем:
скрипт отправляет браузеру методом get русские буквы в виде %D1%D2 и т.д. Если пересылать обратно скрипту строчку типа:
print("Location: sript.pl?переменная=значение"), то в строке она уже обозначается не %D1%D2, а именно значение и скрипт ругается.

Как перекодировать строчку с русскими буквами обратно в вид %D1%D2?

ravshaniy:

--- Код: ---
use CGI::Util qw(escape);

$url = \'Location: sript.pl?переменная=значение\';

print(escape($url));

--- Конец кода ---

подойдет?

Biggelow:
Помогло. Спасибо!

Навигация

[0] Главная страница сообщений