perl - 错误 : Bareword "params" not allowed while "strict subs"

Question

单击提交按钮后，我收到错误消息:

Bareword "params" not allowed while "strict subs" in use at /var/www/path/get.pl line 71

第 71 行:

my @names = params;

我有use strict;几乎在顶部。

怎么修？

注意:它在旧服务器上工作，我正在将所有文件移动到新服务器。不知道哪里出错了？

Answer 1

params很可能是应该从另一个模块导入的子例程的名称(基于样式，可能是在 Perl 中也被实现为子例程的常量)。

在其余代码中搜索 sub params简单地说my.*params旧服务器上的正则表达式，并确保声明它们的任何文件都存在于新服务器上。