Use of uninitialized value in string eq at hostdb.pl line 24, <FILE> line 7.
Device missing field 'sysoid'. 

##</code><code>##

#! /usr/bin/perl

use warnings;
use strict;
use Sys::Hostname;
use DBI;
use Data::Dumper;

open OUTPUT, ">", "output.txt";
my ($source, %current, @stuff, %lookup, $nodelabel,$name, $key,%reverse);
$source= "source";
&dbConnect;
&getHosts;
&lookup;
my @keys = keys %lookup;
my @key2 = keys %current; 
print Dumper $lookup{$name}{"sysoid"};

foreach $key(@key2){
if($current{$key}{"nodesysoid"} eq "" || $lookup{$name}{"sysoid"} eq ""){
	if($current{$key}{"nodesysoid"} eq ""){
			print "Device missing field 'nodesysoid'.\n";
	}
	if ($lookup{$name}{"sysoid"} eq ""){
		print "Device missing field 'sysoid'.\n";
		}else{
			print "everythin looks ok\n";
		}
		
	}
}
sub dbConnect {
	
	# database connection variables
	my $dbPort = "5432";
	my $dbPass = "password";
	my $dbUser = "username";
	my $dbName = "dbname";
	# Get the database hostname
	my $dbHost;
	
	my $dbh = DBI->connect("DBI:Pg:dbname=$dbName; host=localhost; port=$dbPort",
						$dbUser, $dbPass,
						{AutoCommit => 0, RaiseError => 1, PrintError => 0}
						);
			
	return ($dbh,$dbHost);
}
sub getHosts {
	
	# connect to the database
	my ($dbh,$dbHost) = dbConnect();
  
	# prepare and execute the query
	my $sth = $dbh->prepare("SELECT distinct node.nodelabel, node.nodesysoid, ipinterface.ipaddr 
							 FROM node left JOIN ipinterface on ipinterface.nodeid=node.nodeid 
							 WHERE node.nodesysoid is not NULL AND ipinterface.issnmpprimary = 'P';");
	$sth->execute;
  
	# Turn the query into a hash reference and save the data
	while (my $results = $sth->fetchrow_hashref) {
		
		# save the data for our own using.    
		my $nodelabel = lc($results->{nodelabel}); # lowercase this name too
		my $ipaddr = $results->{ipaddr};
		my $sysoid = $results->{nodesysoid};
		
		$current{$nodelabel}{"nodelabel"} = $nodelabel;
		$current{$nodelabel}{"ipaddr"} = $ipaddr;
		$current{$nodelabel}{"nodesysoid"} = $sysoid;
		print OUTPUT $current{$nodelabel}{"nodelabel"} . ",". $current{$nodelabel}{"nodesysoid"} .",".$current{$nodelabel}{"ipaddr"}. "," . $source . "\n";
	}
  
	# disconnect from the database
	$dbh->disconnect();
}

sub lookup {
	open FILE, "<lookup.txt" or die $!;
	while (<FILE>) {
	chomp;
	my ($name, $sysoid) = split(/,/,$_);
	
		if ((not defined $name) || (not defined $sysoid)) {
		next;
			}else {
			$lookup{$name}{"name"}=$name;
			$lookup{$name}{"sysoid"}=$sysoid;
		}
	
	} 
}


##</code><code>##

			'host1.yourdomain.com' => {
                                               'nodelabel' => ''host1.yourdomain.com'',
                                               'nodesysoid' => '.1.3.6.1.4.1.9.1.748',
                                               'ipaddr' => '159.140.67.253'
                                             },
          'host2.yourdomain.com' => {
                                               'nodelabel' => ''host2.yourdomain.com'',
                                               'nodesysoid' => '.1.3.6.1.4.1.9.1.1144',
                                               'ipaddr' => '159.140.67.254'
                                             },
          'host3.yourdomain.com' => {
                                              'nodelabel' => ''host3.yourdomain.com'',
                                              'nodesysoid' => '.1.3.6.1.4.1.9.1.223',
                                              'ipaddr' => '159.140.67.252'
                                            },
          'host4.yourdomain.com' => {
                                                'nodelabel' => 'host4.yourdomain.com',
                                                'nodesysoid' => '.1.3.6.1.4.1.9.1.748',

##</code><code>##

$VAR1 = {
          'C2900' => {
                       'sysoid' => '.1.3.6.1.4.1.9.1.1045',
                       'name' => 'C2900'
                     },
          'ASR1001' => {
                         'sysoid' => '.1.3.6.1.4.1.9.1.1165',
                         'name' => 'ASR1001'
                       },
          'ASR1002' => {
                         'sysoid' => '.1.3.6.1.4.1.9.1.923',
                         'name' => 'ASR1002'
                       },
          '3925-SPE200' => {
                             'sysoid' => '.1.3.6.1.4.1.9.1.1144',
                             'name' => '3925-SPE200'
                           },
          'ACE10-6500-K9' => {
                               'sysoid' => '.1.3.6.1.4.1.9.1.730',
                               'name' => 'ACE10-6500-K9'
                             },
          '7204VXR' => {
                         'sysoid' => '.1.3.6.1.4.1.9.1.223',
                         'name' => '7204VXR'
                       },
          '7206VXR' => {
                         'sysoid' => '.1.3.6.1.4.1.9.1.222',
                         'name' => '7206VXR'
                       }
        };

##</code><code>##

7204VXR,.1.3.6.1.4.1.9.1.223,
ASR1001,.1.3.6.1.4.1.9.1.1165,
ASR1002,.1.3.6.1.4.1.9.1.923,
7206VXR,.1.3.6.1.4.1.9.1.222,
C2900,.1.3.6.1.4.1.9.1.1045,
3925-SPE200,.1.3.6.1.4.1.9.1.1144,
ACE10-6500-K9,.1.3.6.1.4.1.9.1.730,

##</code><code>##

Use of uninitialized value in hash element at hostdb.pl line 17, <FILE> line 7.
$VAR1 = undef;