perl - 如何从 URL 获取查询字符串 - perl

Question

我不知道如何使用 Perl 从 URL 中获取查询字符串。我尝试了几种方法，例如:

my $qs = $ENV{'QUERY_STRING'};
my @d = split(/&/, $qs);

if ( $d[1] eq 'reports' ) {
    ... do something
}

和

use CGI;
my $q = CGI->new;
my $page = $q->param('page');

但我没有得到 key 的值。现在我手动放入查询字符串，即 project.local/routes.cgi?page=reports但我从命令行得到以下信息:

Use of uninitialized value $qs in split at ./routes.cgi line 23.
Use of uninitialized value $d[1] in string eq at ./routes.cgi line 25.

我不确定为什么会出现此警告，因为如果它不存在，它应该只是 undef？

我应该如何存储和检查查询字符串变量？我主要使用 routes.cgi 脚本作为路由 Controller ，所有链接都指向即 <a href="project.local/routes.cgi?page=xx">然后我处理一个模板工具包文件并重定向到该页面(好主意？)

诊断结果:

Use of uninitialized value $qs in split at ./routes.cgi line 23 (#1)
    (W uninitialized) An undefined value was used as if it were already
    defined.  It was interpreted as a "" or a 0, but maybe it was a mistake.
    To suppress this warning assign a defined value to your variables.

编辑:

use URI qw( );
use URI::QueryParam qw( );

my $u = URI->new($base_url);
my ($p) = $u->query_param('page');

if ( $p eq 'reports' ) {
    ...do something
}

Answer 1

伙计，你(根据你过去的问题)与你的 route.cgi 战斗了很多天。阅读您过去问题中的评论和答案，许多开发人员已经对您说:使用一些框架。

现在回答您的问题:

Use of uninitialized value $qs in split at ./routes.cgi line 23.

意思是(符合 use diagnostics 的意思)- $qs 变量不包含任何值。为什么 $ENV{'QUERY_STRING'}; 没有值取决于您的环境，但通常，您不应依赖于某些环境变量，而应依赖于从 HTTP 请求中获得的内容。

Use of uninitialized value $d[1] in string eq at ./routes.cgi line 25.

当然，因为 $qs 是未定义的，所以 split 拆分了 nothing，而拆分后的 nothing 也是 nothing - 所以你的 什么也得不到@d 数组，因此 $d[1] 未初始化。

顺便说一句，当您来自 php-word(如您在其中一个问题中所说)时，您应该知道，而不是在 处成功拆分“QUERY_STRING”之后& 您将获得 $d[0] 值 page=report 而不仅仅是 report。

正如@AndyLester 告诉您的那样，要处理 URL(获取或组合)它的部分是 URI::URL 模块，但您真的应该至少阅读它的描述。

广告路线:一般而言，拥有如下 URL 会更好、更好且对 SEO 更友好:

http://example.com/blog/archive/2013/12/20

不是

http://example.com/run?section=blog&action=archive&year=2014&month=12&day=20

因此，对于“路由”，不要使用 URL 参数，而是使用 PATH_INFO。而这种“哲学”已经发展成许多框架，比如 Poet+Mason、Mojolicious、Dancer 等等，或者这里是独立模块用于处理路线。 (搜索 MetaCPAN.org)。

从我的角度来看，perl web 应用程序开发基于以下命令:

安装我自己的 perl 环境(只需要一次)

curl -L http://install.perlbrew.pl | bash
#relog, to init the environment

perlbrew available
prelbrew install perl-5.20.0
prelbrew switch perl-5.20.0
prelbrew install-cpanm

什么时候有了我“自己的”perl

cpanm Poet #will install a bunch of modules
#or alternatively
cpanm Mojolicious

从现在开始，事情就相对容易了:

cd my_development_directory
poet new myapp
cd myapp

echo 'This is my report <% localtime %>' > comps/report.mc
./bin/run.pl

并且您有一个正在运行的 perl 网络应用程序。因此，将您的浏览器指向:http://localhost:5000/report 将会得到

This is my report Tue Jul 29 16:09:52 2014

除此之外，您还将获得一个很棒的调试面板以及更多...(请参阅 Mason & Poet 手册)

我仍然是 perl 开发的初学者，所以其他更有经验的 perl-monks 可以给你更好的建议。