Net::Packet::CDP - Cisco Discovery Protocol layer 4 object
use Net::Packet::Consts qw(:cdp);
require Net::Packet::CDP;
# Build a layer
my $layer = Net::Packet::CDP->new(
version => 2,
ttl => 180,
checksum => 0,
);
$layer->pack;
print 'RAW: '.unpack('H*', $layer->raw)."\n";
# Read a raw layer
my $layer = Net::Packet::CDP->new(raw => $raw);
print $layer->print."\n";
print 'PAYLOAD: '.unpack('H*', $layer->payload)."\n"
if $layer->payload;
This modules implements the encoding and decoding of the Cisco Discovery Protocol layer.
See also Net::Packet::Layer and Net::Packet::Layer4 for other attributes and methods.
All these type attributes keep a pointer to the respective object. That is, for typeDeviceId, you have a pointer to a Net::Packet::CDP::TypeDeviceId object, if applicable.
Object constructor. You can pass attributes that will overwrite default ones. Default values:
version: 2
ttl: 180
checksum: 0
Packs all attributes into a raw format, in order to inject to network. Returns 1 on success, undef otherwise.
Unpacks raw data from network and stores attributes into the object. Returns 1 on success, undef otherwise.
Load them: use Net::Packet::Consts qw(:cdp);
CDP header length.
Various supported CDP types.
Patrice <GomoR> Auffret
Copyright (c) 2004-2009, Patrice <GomoR> Auffret
You may distribute this module under the terms of the Artistic license. See LICENSE.Artistic file in the source distribution archive.
