http://www.perlmonks.org?node_id=1020379

ahm123 has asked for the wisdom of the Perl Monks concerning the following question:

Hello Monks,

I am trying to figure out how to encode snmpv2 trap using Encoding::BER module

This is my trap varbind.

varbindlist (
'1.3.6.1.2.1.1.3.0', , TIMETICKS, 600,
'1.3.6.1.6.3.1.1.4.1.0',OBJECT_IDENTIFIER,'1.3.6.1.4.1.42767.64.1.1.5.1.40.1',
'1.3.6.1.4.1.42767.64.1.1.3.1.9', INTEGER32, 11,
'1.3.6.1.4.1.42767.64.1.1.3.1.10', OBJECT_IDENTIFIER, 1.3.6.1.2.1.26.2.1.1.3.1.9,
'1.3.6.1.4.1.42767.64.1.1.3.1.11', COUNTER32, 10,
'1.3.6.1.4.1.42767.64.1.1.3.1.12', TIMETICKS, $curr_time,
'1.3.6.1.4.1.42767.64.1.1.3.1.13', INTEGER32, 2,
'1.3.6.1.4.1.42767.64.1.1.3.1.14', OCTET_STRING, ''
)

Thanks in advance for your help,
Ahm