Html Perl转换到POST

我构建了一个web应用程序，它通过URL传递所有表单输入数据。有人能帮我找出如何用POST发送数据吗？我开始处理大量数据，GET创建了一个URL太长的问题。如果有一种简单的JavaScript方法可以做到这一点，我也会感兴趣

例如，输入表单有一个名为

txtName

的属性，用户键入了

John

。在新表单上，我需要它获取

John

，并使用POST方法将其分配给变量

$Name

现在，我正在使用GET，并且正在选择参数以从URL中获取数据

在Perl中，如何让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语句

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

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

$ua = LWP::UserAgent->new;

---

如果您使用以下内容提出请求（与您发布的内容略有不同，以使其有意义）：

您可以使用

ManagementEnhancementPerson.pl

中的以下命令提取该值：

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

---

CGI模块通过

param

提供表单数据，无论表单是使用

GET

还是

POST

提交的，您仍然与前面的问题一样模糊。你在问如何发送数据，但你不会做任何事情。您说表单获取并分配，但表单不能执行操作。你的语言仍然很不清楚。另外，编程语言被称为“Perl”，而不是“Perl”。@jm666，说一个问题是一个封闭问题的副本没有多大意义。此外，我建议他将澄清后的问题作为一个新问题发布，而不是固定一个隐藏和封闭的问题。不幸的是，他做得很糟糕（我想我不知道如何使它更好…基本上我只想知道如何将两种表单上的get过程转换为post过程。您需要从指定用于构建应用程序的框架（如果有的话）开始。您使用的是Dancer、Catalyst还是类似的工具？如果您不理解这个问题，那么j只需说出程序顶部的

使用的
语句。更好的是，将代码发布在此处，以便我们自己查看。好的，我将添加到问题描述中。感谢您的帮助。我是将这两组代码都放在ManagementEnhancementPerson.pl页面中，还是将其中一组放在ManagementEnhancementUpdate.pl中（表单接收数据）和另一个进入ManagementEnhancementPerson.pl（表单发送数据）？此评论充满错误。1）表单不接收数据。2）ManagementEnhancementUpdate.pl
不是表单。3） 
ManagementEnhancementUpdate.pl
是接收您问题中数据的人。4） 我的答案已经说明了代码的位置。好的，非常感谢你的帮助。我将使用该代码并尝试使其工作。谢谢你回答我的废话！
use CGI qw( );
my $cgi = CGI->new;
my $Person = $cgi->param('person');