введение в perl

В этом случае данные будут посланы скрипту в следующем формате:
user_name=Andy+Novikov&co_name=TeleSputnik&phone=(812)+123-45-67

Perl скрипт должен разобрать эту строку по частям и сохранить в переменных для дальнейшей обработки. Строки, производящие эти действия достаточно стандартны:
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

Эта строка читает данные со стандартного входа и помещает их в переменную $buffer. Длина строки передается скрипту через переменную окружения CONTENT_LENGTH.

Как только данные помещены в переменную $buffer вы можете разбить их на отдельные переменные с соответствующими им значениями:
@pairs = split(/&/, $buffer);

Теперь мы получили массив @pairs со следующими строковыми переменными:
[1] user_name=Andy+Novikov
[2] co_name=TeleSputnik
[3] phone=(812)+123-45-67

Теперь нам необходимо разбить эти строки на пары параметр-значение:
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /; # заменяем плюсы на пробелы
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
$input{$name} = $value;
}

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Другие голосования

Приглашаем Вас обменяться кнопочками! Обращайтесь к администратору.

• установка php и apache на *nux
• собираем apache + php + xml для linux
• синтаксис .htaccess
• модуль mod_rewrite. часть 4
• модуль mod_rewrite. часть 3
• модуль mod_rewrite. часть 2
• модуль mod_rewrite. часть 1
• Apache + php + xml + mysql для windows
• вебсервер в домашних условиях
• протокол hdlc