在perl裏面的類構造函數中創建調度表

Question

我想在類構造函數中創建調度表。執行失敗，出現下面提到的錯誤。

錯誤： 在../lib/Parser.pm的子例程條目中使用未初始化的值。 當在../lib/Parser.pm處使用「strict refs」時，不能使用字符串（「」）作爲子程序ref。

代碼：

package parser; 

use strict; 
use warning; 

@packet = ("join","release","status"); 
#constructor 
sub new { 
     my ($class) = shift; 
     my $self = { 
      _callerMDN => shift, 
      _calleeList => shift, 
      _serverIp => shift, 
      _packetHandler => { 
       join => \&joinHandler, #Dispatch table,variable "join" stores func reference 
       release => \&releaseHandler, #variable "release" stores func reference 
       status => \&statusHandler #variable "stores" stores func reference 
       }, 
      _mdnHandler => {}, 

     }; 

     print ("The Server IP = $self->{_serverIp}\n") if ($debug); 
     print ("CallerMDN = $self->{_callerMDN}\n") if ($debug); 
     print ("TcpDump File Name = $self->{_tcpdumpFile}\n") if ($debug); 

    bless($self, $class); 
    return $self; 

} 

sub start { 
    my ($self,$data) = @_; 
    if ($data ~= "Incoming Packet") { 
     $self->{_packetHandler}->{$packet[0]}->($data);#**Error while calling "joinHandler" function** 
    } 
    elsif ($data ~= "Outgoing Packet"){ 
     $self->{_packetHandler}->{$packet[1]}->($data);#**Error while calling "releaseHandler" function** 
    } 
    else { 
     $self->{_packetHandler}->{$packet[2]}->($data);#**Error while calling "statusHandler" function** 
    } 

} 

sub joinHandler { 
    my ($self,$data) = @_; 
    #parse packet 
    print ("Incoming Packet parsed"); 
} 

sub releaseHandler { 
    my ($self,$data) = @_; 
    #parse packet 
    print ("Outgoing packet parsed"); 
} 

sub statusHandler { 
    my ($self,$data) = @_; 
    #parse packet 
    print ("status packet"); 
} 

請幫我瞭解並解決問題。

Answer 1

看看你的條件陳述。 試試這個：

$data eq "Incoming Packet" 

有一些細微的拼寫錯誤也： 使用警告; 和$ debug變量未初始化。

希望有所幫助。

Answer 2

我看到不少問題。

1. use warning;應該use warnings;

2. 你在你的package

3. 頂部忘記my @packet在sub start你有=~倒退爲~=。但它可能應該是eq反正。

4. $debug沒有在任何地方聲明。

您可能會發現它有用採取perl -c優勢，檢查語法（也運行BEGIN塊也行），當你遇到問題。