我將如何解決以下錯誤「未定義的子程序和main :: resetCounters調用」？

Question

我該如何解決以下錯誤「未定義的子程序& main :: resetCounters called at」？該子程序已經建立了原型，但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

這是奇怪的。

在resetCounters被定義之前，我會傾向於相信某些事情正在悄然失敗，但是「嚴格」應該會阻止這種情況發生。

您是否嘗試過使用＆符號？

&resetCounters(); 

[編輯]

我見過類似的東西只有一個地方是鯉魚。

腳本中的某些內容不能編譯，因此BEGIN語句不會編譯，最終會從它中獲取錯誤，而不是從失敗的代碼中獲取錯誤。

use CGI::Carp qw(fatalsToBrowser set_message); 

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

Answer 3

我不能肯定地說，這是問題，但你可能會考慮在subs編譯爲predeclaring的功能。

一個快速關閉...

#!/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; 
}