Perl 将 GET 转换为 POST

Question

我已经构建了一个通过 URL 传递所有表单输入数据的 Web 应用程序。有人可以帮我弄清楚如何使用 POST 发送数据吗？我开始处理大量数据，而 GET 导致 URL 太长的问题。如果有一种简单的 JavaScript 方法可以做到这一点，我也会感兴趣。

例如，输入表单有一个名为txtName 的属性，而用户输入了John。在新表单上，我需要它来获取 John 并使用 POST 方法将其分配给变量 $Name。

现在我正在使用 GET 并且正在调整参数以从 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 和 Web 开发比较陌生。

这是我在页面顶部的使用声明接收数据。

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 提交的。