Hola a todos.
Estoy trabajando con sockets UDP y por ellos estoy recibiendo paquetes SNMP.
Necesito analizar estos paquetes para saber cuál es el IP/puerto de origen del paquete que llegó al host.
Tengo el mensaje en la variable $newmsg que acabo de recuperar del socket y este es el código con el que estoy probando:
...
use NetPacket::Ethernet qw(:strip);
use NetPacket::IP;
use NetPacket::UDP;
...
my $ip_datagram = NetPacket::IP->decode( NetPacket::Ethernet::eth_strip( $newmsg ) );
foreach ( ...