| … | |
… | |
| 8 | |
8 | |
| 9 | my $ber = ber_decode $buf, $Convert::BER::XS::SNMP_PROFILE |
9 | my $ber = ber_decode $buf, $Convert::BER::XS::SNMP_PROFILE |
| 10 | or die "unable to decode SNMP message"; |
10 | or die "unable to decode SNMP message"; |
| 11 | |
11 | |
| 12 | # The above results in a data structure consisting of |
12 | # The above results in a data structure consisting of |
| 13 | # (class, tag, # constructed, data) |
13 | # (class, tag, flags, data) |
| 14 | # tuples. Below is such a message, SNMPv1 trap |
14 | # tuples. Below is such a message, SNMPv1 trap |
| 15 | # with a Cisco mac change notification. |
15 | # with a Cisco mac change notification. |
| 16 | # Did you know that Cisco is in the news almost |
16 | # Did you know that Cisco is in the news almost |
| 17 | # every week because of some backdoor password |
17 | # every week because of some backdoor password |
| 18 | # or other extremely stupid security bug? |
18 | # or other extremely stupid security bug? |
| … | |
… | |
| 303 | a ease-of-use exception, they usually also accept C<undef> instead of a |
303 | a ease-of-use exception, they usually also accept C<undef> instead of a |
| 304 | tuple reference, in which case they silently fail to match. |
304 | tuple reference, in which case they silently fail to match. |
| 305 | |
305 | |
| 306 | =over |
306 | =over |
| 307 | |
307 | |
| 308 | =item $bool = ber_is $tuple, $class, $tag, $constructed, $data |
308 | =item $bool = ber_is $tuple, $class, $tag, $flags, $data |
| 309 | |
309 | |
| 310 | This takes a BER C<$tuple> and matches its elements against the provided |
310 | This takes a BER C<$tuple> and matches its elements against the provided |
| 311 | values, all of which are optional - values that are either missing or |
311 | values, all of which are optional - values that are either missing or |
| 312 | C<undef> will be ignored, the others will be matched exactly (e.g. as if |
312 | C<undef> will be ignored, the others will be matched exactly (e.g. as if |
| 313 | you used C<==> or C<eq> (for C<$data>)). |
313 | you used C<==> or C<eq> (for C<$data>)). |
