comment on

Hi All! I am trying to compare a value in hash #1 against the value of hash #2. If there is a match (oids match), I'd want to print the key of hash #2 (the device name).

However, I am currently dealing with two issues:

1)One of the hash values always comes back undef.

2)Here are the errors i get:

Use of uninitialized value in string eq at hostdb.pl line 24, <FILE> l
+ine 7.
Device missing field 'sysoid'.
[download]

(I am assuming these errors are result of "undef" value in one of the hashes)

How can i compare two of these hash values to each other?

Here is how i create my hashes:

#! /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,%revers
+e);
$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; por
+t=$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.node
+sysoid, ipinterface.ipaddr 
                             FROM node left JOIN ipinterface on ipinte
+rface.nodeid=node.nodeid 
                             WHERE node.nodesysoid is not NULL AND ipi
+nterface.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 na
+me 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;
        }
    
    } 
}
[download]

Here is how my fist hash looks like:

            '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.y
+ourdomain.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',
[download]

Here is how my second hash looks like:

$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'
                       }
        };
[download]

Here is what lookup file looks like:

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,
[download]

If i just print print Dumper $lookup{$name}{"sysoid"}; I get the following

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

In reply to Compare two hash values for a match by vlad3848

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.