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 行。