8

我试图在单个 Perl 脚本中排除对 Perl Critic 的 RequireRcsKeywords 的检查。我不想在 .perlcriticrc 中更改我的默认策略，所以我在源代码的顶部添加了一个“nocritic”行。尽管发生了这种变化，Perl Critic 仍然抱怨缺少 RCS 关键字。

这是我的测试用例（critictest.pl）：

#!/usr/bin/perl
## no critic (RequireRcsKeywords)
use warnings;
use strict;
print "Hello, World.\n";

当我执行时，perlcritic -1 --verbose 8 critictest.pl我得到以下输出：

[Miscellanea::RequireRcsKeywords] RCS keywords $Id$ not found at line 1, column 1.  (Severity: 2)
[Miscellanea::RequireRcsKeywords] RCS keywords $Revision$, $HeadURL$, $Date$ not found at line 1, column 1.  (Severity: 2)
[Miscellanea::RequireRcsKeywords] RCS keywords $Revision$, $Source$, $Date$ not found at line 1, column 1.  (Severity: 2)
[Modules::RequireVersionVar] No package-scoped "$VERSION" variable found at line 1, column 1.  (Severity: 2)
[Miscellanea::ProhibitUselessNoCritic] Useless '## no critic' annotation at line 2, column 1.  (Severity: 2)
[InputOutput::RequireCheckedSyscalls] Return value of flagged function ignored - print at line 5, column 1.  (Severity: 1)

我知道 Perl Critic 正在工作，因为如果我添加## no critic (RequireCheckedSyscalls)，那么输出中的错误就会消失。我也尝试添加`## no critic (Miscellanea::RequireRcsKeywords)，但这并没有引起任何变化。告诉 Perl Critic 忽略我文件中的 RequireRcsKeywords 策略而不必使用外部策略文件的正确方法是什么？

编辑：我正在使用 Perl 5.10.1、Perl Critic 1.108 和 Debian 6.0.3。

4

4 回答 4

4

您可以使用和在命令行上向.perlcriticrc文件添加一次性调整。--include--exclude

$ perlcritic --exclude RcsKeywords -1 --verbose 8 critictest.pl
[Modules::RequireVersionVar] No package-scoped "$VERSION" variable found at line 1, column 1.  (Severity: 2)
[InputOutput::RequireCheckedSyscalls] Return value of flagged function ignored - print at line 4, column 1.  (Severity: 1)
于 2012-02-07T20:04:32.410 回答
2

您可以将 shebang 和“nocritic”注释都放在第一行。像这样：

#!/usr/bin/perl -- ## no critic RequireRcsKeywords
于 2012-02-07T19:24:51.577 回答
2

请注意，违规发生在文件的第 1 行。如果我删除你的第一行，我就不会RCS违规。我怀疑此策略适用于整个文件，并且只有在no critic编译指示出现在文件的第一行时才能忽略。

另请注意，它告诉您它忽略了您的编译指示：

[Miscellanea::ProhibitUselessNoCritic] Useless '## no critic' annotation at line 2, column 1.  (Severity: 2)
于 2012-02-07T18:58:14.507 回答
0

hack 可能是使用以下第一行：

#!/usr/bin/perl -F## no critic (Miscellanea::RequireRcsKeywords)

文档说 -F 标志本身不做任何事情，所以它应该是无害的。

于 2012-02-07T22:46:32.037 回答