use strict;





my @ip = qw(10.17.5.201 10.16.5.201 10.37.4.201 10.46.10.201 10.17.3.201 10.18.5.201 );

my $ipaddress;

my @port_address_table;

my @mac_tabel_filter;

my @mac_tabel_result;

my $graph;

my %mac_ip;

my %graph;
my %port_analyse_result;
my %port_analyse_result2;

foreach $ipaddress (@ip){



    my $host = ("rmon12\@$ipaddress");

    my @snmp_result_port_mac = &snmpwalk($host, ("1.3.6.1.2.1.2.2.1.6"));

    my @mac_address_port = convert_mac_address(@snmp_result_port_mac);

    
        %port_analyse_result = port_analyse(@snmp_result_port_mac);
        #push (my @port_analyse_hash, { %port_analyse_result} );
        #print %port_analyse_result;
        #%port_analyse_result2 = (%port_analyse_result);