perl - CGI 脚本中的处理 URL

Question

read(STDIN, $FormData, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $FormData);                              
foreach $pair (@pairs) {

(name, $value) = split(/=/, $pair);          
$value =~ tr/+/ /;

$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$FORM{$name} = $value;
    my $Var1 = $Form{Var1};
    my $Var2 = $Form{Var2};} 

我需要 Perl 面向对象脚本修改方面的帮助，该脚本处理 从URL提交的数据，调用LDAP并获取用户参数，添加这些 参数到 POST 表单，并将包含所有数据的 http POST 发送到同一 URL。

我的目标是修改原始 Perl 脚本以获取多个文章参数。 多篇文章参数的形式为:

id0=7kqm0uoamdtkff548567abdi3a&qpw0=ATYP%2d.....
&id1=7kqm0uoamdtcccccckff54123abdfn5&qpw1=ATYP....
........
&idN=NXXXXXX&qpwN=ATYP%2d%201....

其中 N <= 50

我已阅读标准输入(通过表单发送)

我无法弄清楚新参数如何:

idN    where N <= 50
qpwN   where N <= 50

可以添加到关联数组%names

我已经从键中解析了“^id”:

my $key;
my $count;
foreach $key (sort keys(%names)) {
if ($key =~ '^id') {
   print $key, '=', $names{$key}, "\n";
   $count++;
   }
}
print "Total articles number = $count\n";

if ($count <= 50) {
print "You ordered $count articles\n";
}
else {

print "You exceeded the 50 articles limit"
}

所以我想添加两个新参数$idN & $qpwN 其中 N <= 50 采用这种形式:

my $Var1 = $Form{Var1};
my $Var2 = $Form{Var2};

如何执行？ 预先感谢您!

以斯帖

Answer 1

如果您正在 Perl 脚本中处理表单中的数据，请使用 CGI.pm 和 CGI::Expand处理高级查询参数。

#!/usr/bin/perl
use warnings;
use strict;
use CGI;
use CGI::Expand;

my $q = CGI->new;
my $p = CGI::Expand->expand_cgi($q);

$p 将包含您的所有查询参数。