Декодирование данных с помощью модуля CGI
При получении данных в программу из формы вам не обязательно декодировать их собственноручно.
В комплект поставки языка Perl входит модуль с именем CGI.pm, который предназначен для облегчения написания CGI-программ. Главное предназначение этого модуля - чтение и декодирование данных. В модуле есть и другие полезные функции, но сейчас нас интересует только функция чтения и декодирования данных. Для того чтобы декодировать данные, переданные вашей программе, вы должны так импортировать модуль CGI.pm:
use CGI qw (:standard);
$query = new CGI;
После этого все данные копируются в кэш с именем param, который связан с объектом запроса с помощью переменной с именем $query. Таким образом, если пользователь передал данные формы, содержащие поле с именем last_name, значение этого поля можно сделать доступным через переменную с именем $last_name. Выполняется это следующим образом:
$last_name = $query->param('last_name');
Рассмотрим это выражение по частям:
$last_name - это имя переменной, которой я хочу передать значения из поля формы.
$query - имя объекта; который я создал в этой программе.
Оператор -> используется для доступа к кэшу param объекта query.
Выражение в скобках 'last_name' используется для доступа к элементу кэша с ключом last_name.
Это все, что касается декодирования данных с помощью модуля CGI.pm, который делает за вас всю работу.