如何解决以下错误“未定义的子例程和 main::resetCounters 调用于”？

Question

如何解决以下错误“未定义的子例程和 main::resetCounters 调用于”？子例程已经原型化，但 Perl 仍然抱怨。以下代码是我遇到的问题：

#!/usr/bin/perl
use strict;
use warnings;

...

sub reportStats();
sub resetCounters();  #HERE IS THE PROTOTYPE
sub getUpperBusTimeStampAndBatchSize($);
sub toMs($);
sub tibTimeToMs();
sub calcStdDev();

...

print "\nTimeStamp  TPS   MPS    MaxBat  AvgBat  MaxLat  AvgLat  StdLat  >5ms    %>5ms\n";
resetCounters();  #THIS IS THE LINE CONTAINING THE ERROR

...

sub resetCounters()
# -----------------------------------------------------------
# resets all metrics counters
# -----------------------------------------------------------
{
  $tps = 0;
  $mps = 0;
  $batch = 0;
  $maxBatch = 0;
  $avgBatch = 0;
  $latency = 0;
  $latencySum = 0;
  $maxLatency = 0;
  $avgLatency = 0;
  $overThreshold = 0;
  $percentOver = 0;
  $currentSecond = $second;
  @latencies = ();
}

Answer 1

除非子程序带有括号，否则不需要原型。如果不包含括号则没有问题。代码如下：

#!/usr/bin/perl
use strict;
use warnings;

...

print "\nTimeStamp  TPS   MPS    MaxBat  AvgBat  MaxLat  AvgLat  StdLat  >5ms    %>5ms\n";
resetCounters();

...

sub resetCounters #No parentheses
# -----------------------------------------------------------
# Resets all metrics counters
# -----------------------------------------------------------
{
    $tps = 0;
    $mps = 0;
    $batch = 0;
    $maxBatch = 0;
    $avgBatch = 0;
    $latency = 0;
    $latencySum = 0;
    $maxLatency = 0;
    $avgLatency = 0;
    $overThreshold = 0;
    $percentOver = 0;
    $currentSecond = $second;
    @latencies = ();
}

Answer 2

我不能肯定地说这就是问题所在，但您可以查看 subs 用于预先声明函数的 pragma。

快速的一次......

#!/usr/bin/env perl

use strict;
use warnings;

use subs "myclear";

my $var = 1;

myclear;

print $var;

sub myclear () {
  $var = 0;
}

此外，由于这种过程命令很可能作为其自己的语句发生，因此它实际上不需要空原型，或根本不需要任何原型。

#!/usr/bin/env perl

use strict;
use warnings;

use subs "myclear";

my $var = 1;

myclear;

print $var;

sub myclear {
  $var = 0;
}

Answer 3

这很奇怪。

我最倾向于相信在定义resetCounters之前某些事情正在悄然失败，但是“严格”应该可以防止这种情况发生。

您尝试过使用＆符号吗？

&resetCounters();

[编辑]

我唯一见过类似的地方是 CARP。

脚本中的某些内容无法编译，因此 BEGIN 语句无法编译，您最终会从中收到错误，而不是从失败的代码中收到错误。

use CGI::Carp qw(fatalsToBrowser set_message);

# HTML-format error reporter.  Comment out if script wont compile 
BEGIN
    { set_message( \&handle_errors ); }