#!/usr/bin/perl

use Net::SNMP;

use strict;

use warnings;


my $community           = "eX0gyN37";
my $inputfilename       = "/home/cjones/snmpscripts/hostipaddresses.txt";
my $outputfilename      = "/home/cjones/snmpscripts/vlan1.csv";

my $IFINDEX             = "1.3.6.1.2.1.2.2.1.1";
my $IFTYPE              = "1.3.6.1.2.1.2.2.1.3";
my $IFNAME              = "1.3.6.1.2.1.31.1.1.1.1";
my $IFALIAS             = "1.3.6.1.2.1.31.1.1.1.18";
my $IFOPERSTATUS        = "1.3.6.1.2.1.2.2.1.8";
my $VMVLAN              = "1.3.6.1.4.1.9.9.68.1.2.2.1.2";
my $HOSTNAME_OID        = "1.3.6.1.4.1.9.2.1.3.0";
my $IFNUMBER            = "1.3.6.1.2.1.2.1.0";

open my $input, '<', $inputfilename or die "$0: $inputfilename: $!\n";
open my $output, '>', $outputfilename or die "$0: $outputfilename: $!\n";

while (my $ip = $input) {