Я perl недавно занимаюсь, перешёл к CGI и столкнулся с проблемой - текст на отличном от английского языка отправляемый из формы кодируется, как я полагаю в mime тип, чтобы не искривлялись данные. При выводе, или сохранении этого текста получается что-то типа "%F1%F2%EE%FF%EB%E0+%EE%EA%EE%". У меня вопрос: Как это расшифровать ? и желательно по-подробнее о шифровании данных, чтобы больше не сталкиваться с подобными проблемами в типах данных отличных от текста.

perldoc CGI

я смотрел в perldoc --> CGI, но там куча всего, а я по английски понимаю через слово, а в содержании там почему-то не написали: "нажми здесь и узнаешь всё про кодирование данных". Ума не приложу, почему не написали?

Скинь код, что-то я тебя не понимаю....

Допустим есть форма:

Код

<html> <head>  <title>Test</title> </head> <body> <form method="post" action="/cgi-bin/test.pl">  <b>Ваше имя:</b><input type="text" size="30" name="name"><br>  <b>Ваша фамилия:</b><input type="test" size="30" name="family">  <hr>  <input type="submit" value="Отправить" name="send">  <input type="reset" value="Очистить"> </form> </body> </html>

Теперь напишим скрипт получающий и декодирующий переданные параментры и назовём его test.pl:

Код

#!/usr/bin/perl -w use strict; # Не обязательно, но желательно use CGI;  # Подключаем модуль CGI my $cgi = new CGI; # Создаём объект my $name = $cgi->param('name'); # Получили и декодировали поле name my $family = $cgi->param('family'); # Получили и декодировали поле family # Выводим заголовок print $cgi->header( -charset => 'Windows-1251' ),        # Генерим начало страницы с помощью CGI.pm ( следующие 2 строки )        $cgi->start_html( -title => 'Тест' ),        $cgi->start_center; # Если параметры получены, то поприветствуем юзера, # в противном случае выругаем.;) if ( $name and $family ) {        print $cgi->h2("Привет, $name $family!"); } else {        print $cgi->h2("FUCK! Заполнены не все поля"); } # Заканчиваем генерить страничку print $cgi->end_center,        $cgi->end_html; exit(0); # Выходим явным образом из программы

Цитата

я смотрел в perldoc --> CGI, но там куча всего, а я по английски понимаю через слово, а в содержании там почему-то  не написали: "нажми здесь и узнаешь всё про кодирование данных". Ума не приложу, почему не написали?

Если есть желание писать CGI программы, то тебе нужно изучить полностью модуль CGI.pm, жизнь станет легче. Ну а если не понимаешь лэнгвич, то скачай отсюда переводы документаций к модулям CGI, GD, LWP, а так же к Регулярным выражениям. Спасибо админу.

Удачи.

Это сообщение отредактировал(а) korob2001 - 14.6.2004, 23:24

Код

$nick=~ s/%(..)/pack("c",hex($1))/ge;

Но лучше пользоваться CGI.pm

Я не ел день и не спал ночь, а всё оказалось элементарно просто, ну как всегда

Код

$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

почти как у HalkaR. И из-за этого я прочитал кучу макулатуры по UTF, вот блин
Всего лишь упаковать в двоичную структуру .

Цитата

Всего лишь упаковать в двоичную структуру

Пользуйся лучше CGI.pm

Это сообщение отредактировал(а) korob2001 - 15.6.2004, 22:24

Цитата

Пользуйся лучше CGI.pm

Да, так и сделаю, но всему своё время