perl 获取表单请求路径和传递的参数

在 Perl 中获取表单请求路径和传递的参数可以使用 CGI 模块。下面是一个简单的示例代码：

use CGI;

my $cgi = CGI->new;
my $path = $cgi->url(-base => 1); # 获取请求路径
my $params = $cgi->Vars; # 获取传递的参数

print "请求路径：$path\n";
print "传递的参数：\n";
foreach my $key (keys %$params) {
    print "$key: $params->{$key}\n";
}

其中，`CGI->new` 创建了一个 CGI 对象，`$cgi->url(-base => 1)` 获取了请求路径，`$cgi->Vars` 获取了所有传递的参数，返回一个哈希引用。通过遍历哈希获取每个参数的值。