0 
  my %SESSION_CONFIG = (
    Start  => 1,
    ThisID => $local_addr,
    ThisAS => $local_asn,
    PeerID => $peer_addr,
    PeerAS => $peer_asn,
    HoldTime => 180,
    KeepAliveTime => 30,
    Listen => 0,
    );
    
    my $bgp  = Net::BGP::Process->new( ListenAddr => $local_addr );
    my $peer = Net::BGP::Peer->new(%SESSION_CONFIG);
    
    $bgp->add_peer($peer);

我在 /usr/local/lib/perl5/Socket.pm 第 850 行收到这样一个错误 Undefined address for Socket::pack_sockaddr_in。在 /usr/local/share/perl5/Net/BGP/Process.pm 第 119 行。

4

0 回答 0