#!/usr/bin/perl 

use Net::TcpDumpLog;
use NetPacket::Ethernet;
use NetPacket::IP;
use NetPacket::TCP;
use strict;
use warnings;

use Net::Frame::Dump::Offline;
use Net::Frame::Simple;
use Net::Frame::Layer;
use Net::Frame::Layer::UDP;

use Mon::SNMP;


   #
   # Simple offline anaysis
   #

    my $fParse = "/home/my_file.cap";
  my $oDump = Net::Frame::Dump::Offline->new(
	file      => $fParse,
  	filter    => 'SNMP',
  );

   $oDump->start;

   my $count = 1;
   while (my $h = $oDump->next) {
      my $f = Net::Frame::Simple->new(
         raw        => $h->{raw},
         firstLayer => $h->{firstLayer},
         timestamp  => $h->{timestamp},
      );

      my $len = length($h->{raw});
      print 'o Frame number: '.$count++." (length: $len)\n";
      print $f->print."\n";

  }

   $oDump->stop;