Shell Programming and Scripting

   serial     nic_name      nic_ip   nic_duplex      nic_speed

0629AN1200 	bge0 	    1.1.1.1 	full     	10 
0629AN1200 	bge1 	    8.8.8.8 	full     	100 
0629AN1200 	bge2 	    7.7.7.7 	half    	100 	
0629AN1200 	bge3        3.2.1.1 	full 	        1000

#!/usr/bin/perl -w
use DBI;

my $serial = "0629AN1200";   # an example serial number

my $dbh = DBI->connect("DBI:mysql:CMDB","username","password",) or die $DBI::errstr;
my $sth = $dbh->prepare("SELECT nic_name,nic_ip,nic_duplex,nic_speed FROM view1 WHERE serial = '$serial'") or die $DBI::errstr;
$sth->execute or die $DBI::errstr;
$hashr = $sth->fetchall_hashref('nic_name');

# I am using this bit of code to display the contents and structure of the hash of hashes

while ( my ( $key, $value ) = each %$hashr ) {
     print $key, " ->\n";
    while ( my ( $key, $value ) = each %$value ) {
        print "\t", $key, " -> ", $value, "\n";
    }
   }

$ ./tester2.pl
bge3 ->
        nic_ip -> 3.2.1.1
        nic_speed -> 1000
        nic_name -> bge3
        nic_duplex -> full
bge1 ->
        nic_ip -> 8.8.8.8
        nic_speed -> 100
        nic_name -> bge1
        nic_duplex -> full
bge0 ->
        nic_ip -> 1.1.1.1
        nic_speed -> 10
        nic_name -> bge0
        nic_duplex -> full
bge2 ->
        nic_ip -> 7.7.7.7
        nic_speed -> 100
        nic_name -> bge2
        nic_duplex -> half

$hashr = $sth->fetchall_hashref('nic_name');