Как получить и ответить на запросы Ajax в Perl?

Question

У меня есть приложение на стороне клиента, которое отправляет некоторые данные через запрос POST AJAX (request.open("POST", url, flag)) на мой скрипт CGI на Perl.

Как получить эти данные с помощью Perl и вернуть некоторые другие данные (ответ AJAX)?

Answer 1

Точно так же вы будете обрабатывать любой запрос POST. Вам нужен CGI-скрипт в url, который получает POST и возвращает все, что ожидает JavaScript. Единственное отличие от обычной POST-формы HTML - это Content-Type, который вы будете получать и передавать.

Answer 2

Используйте сердечник CGI модуль. Например.

use strict; 
use warnings; 

use CGI; 

my $q = CGI->new; 
my $foo = $q->param('foo'); 

print $q->header; 
print "You said $foo"; 

Если ваше приложение будет большим и сложным, вы можете исследовать один из рамок веб-приложений на Perl, как CGI::Application или Catalyst.

Answer 3

Базовая модель сценариев CGI «считывается из STDIN, записывается в STDOUT». На этапе ввода переменная среды CONTENT_LENGTH дает длину в байтах, которая должна считываться с STDIN. На стадии производства, также необходимо отправить основные HTTP заголовки, которые минимально одна строка «Content-Type» с типом пантомимы, как text/html или text/plain и т.д. плюс пустая строка:

Content-Type: text/plain 

<your data starts here> 

В в случае XMLHttpRequest, вы полностью контролируете формат данных, поэтому, как вы анализируете ввод от STDIN, зависит от вас. Точно так же вы можете лежать в типе mime и отправлять все, что хотите, в ответ.

JSON - отличный формат для отправки данных с Perl на JavaScript.

Answer 4

use CGI; 
my $q = CGI->new; 
my $xml = $q->param('POSTDATA');