Perl converting GET to POST

Question

Я создал веб-приложение, которое передает все входные данные формы через URL-адрес. Может ли кто-нибудь помочь мне выяснить, как отправлять данные с помощью POST? Я начинаю обрабатывать большие объемы данных, а GET создает проблему с слишком длинным URL-адресом. Если есть простой способ JavaScript для этого, мне было бы интересно также.

Например, форма ввода имеет атрибут txtName и пользователь набрал John. В новой форме мне нужно получить John и назначить его переменной $Name с использованием метода POST.

Сейчас я использую GET и am chomping параметры, чтобы получить данные из URL.

Как вы, на Perl, получаете POST для работы в обеих формах?

Я изменил GET на POST на форме, представляющей данные. На принимающем данные формы я ставлю

use HTTP::Request::Common qw(POST); 
use LWP::UserAgent; 

$ua = LWP::UserAgent->new; 

в верхней части, то под этим я поставил

my req = POST 'http://intranet/webservice/enhancements/ManagementEnhancementPerson.pl', 
     [ $Person ='person' ]; 

Веб-страница страница Я принимаю данные, $Person переменная я хочу и person - это имя ввода в исходной форме.

Я застрял на этом некоторое время. Я относительно новичок в Perl и веб-разработке.

Это мои заявления использования в верхней части страницы получение данных.

use CGI::Carp 'fatalsToBrowser'; 
use warnings; 

use Net::SMTP; 
use HTTP::Request::Common qw(POST); 
use LWP::UserAgent; 

$ua = LWP::UserAgent->new; 

Answer 1

Если вы сделаете запрос, используя следующее (немного изменен от того, что вы вывесили имеете смысл):

my $request = POST 'http://.../ManagementEnhancementPerson.pl', [ 
    person => $Person, 
]; 

my $response = $ua->request($request); 

Вы бы извлечь значение, используя следующий в ManagementEnhancementPerson.pl:

use CGI qw(); 
my $cgi = CGI->new; 
my $Person = $cgi->param('person'); 

Модуль CGI предоставляет данные формы через param независимо от того, была ли форма отправлена ​​с использованием GET или POST.