Perl引用不返回正确的值

时间:2011-02-25 12:33:22

标签: perl reference

这是我第一次在这里提出问题,如果我没有正确遵守任何惯例,那么道歉。

我在一些Perl代码中遇到一个错误,它在第一个名称 - 值对之后基本上丢失了URL中的任何参数,并且解决方案是在URL上使用URI::Escape函数。

在此更改之后,我决定将执行此操作的代码移动到Perl模块(Utils.pm),以便将来只需在此文件中进行一次更改,而不必更新使用它的每个文件。 / p>

我似乎遇到的问题是user,passwd和priv变量似乎没有返回正确的值 - 系统仍然允许您登录但它无法识别您的姓名或您拥有的权限

以下是我认为与问题相关的代码的pastebin链接。

我相信它与引用有关,但我所做的任何更改都会破坏页面!

如果有人有任何想法,我会非常感谢你的帮助。

http://pastebin.com/tqGfGutW

1 个答案:

答案 0 :(得分:2)

我设法通过尝试一些事情来解决这个问题。

在Utils.pm中,我只是取出反斜杠,使其显示为:

$res = CGI_ats::GetUserandPasswd($user, $passwd, $privs);

因为在此之前已经引用了几行,我认为这是有意义的 不必再次引用它们。