perl - 如何在 PHP 的 print_r($_GET) 等 perl 脚本中转储所有查询变量？

Question

我有一个从浏览器运行的 perl 脚本。我将查询变量传递给它，但查询变量的显示就像johndoe%40test%2Ecom而不是johndoe@test.com

我想调试变量以查看它们在脚本开头的显示方式。

在 PHP 中，它会在访问 url 时：

http://localhost/dump-variables.php?foo=1&bar=2&bis=johndoe%40test%2Ecom

PHP 脚本将包含以下代码：

header('Content-type: text/plain');
print_r($_GET);

结果将是：

Array
(
    [foo] => 1
    [bar] => 2
    [bis] => johndoe@test.com
)

Perl 版本：5.010001

重要的提示

我正在处理的系统上没有任何特殊访问权限（root / sudo）-因此可能必须通过源包含模块...

Answer 1

您已标记此 CGI，所以我首先建议使用更有效的 .

但是，如果您要使用 CGI，并假设使用 CGI.pm，那么（来自CGI.pm 文档）：

use CGI;
use Data::Dump qw/ddx/;
my $q = CGI->new();
print $q->header('text/plain');
my %params = $q->Vars;

print "Content-type: text/plain\n\n"; # had to add this

ddx \%params;

Answer 2

试试 Data::Printer http://metacpan.org/pod/Data::Printer 添加即可

 use DDP;
  ...

 p $_GET