dcsimg

# Set up my DB query: (assume $macaddr is defined)
my $bquery = "SELECT * FROM bridge WHERE 
              (mac_addr='$macaddr' and  switchport='Gi1/0/1' 
               and  switch='<i>my_cool_switch_hostname</i>')" ;
# Prepare the statement, and check to see if it worked:
my $hth = $dbh->prepare($bquery);
if( !$hth ) {
  die "Cannot  prepare statement: $DBI::errstr\n";
}
# Execute it, and if it didn't work, print the error string from PostgreSQL:
if(!($hth->execute)) {
  print "db  select failed: $DBI::errstr\n";
  $hth->finish;
  print "db  insert failed: $DBI::errstr\n";
}
# Grab the row returned from the DB, put it in an array, and  print it:
else {
  if ( @row =  $hth->fetchrow_array ) {
  print @row;
  }
}
# Terminate the statement handle:
$hth->finish;
# Terminate the DB connection:
$dbh->disconnect;