use DBI;
##lista de los drivers instalados
@drivers = DBI->available_drivers();
###imprimir
foreach $dr ( @drivers ) {
	print "$dr \n";
###obtener DSN
	next unless $dr ne 'Proxy';
	foreach $dsn ( DBI->data_sources( $dr ) ) {
		print "$dsn \n";
	}
}
use DBI;

$driver = "mysql";

$dsn = "DBI:${driver}:cib611";

$dbh = DBI->connect( $dsn, "cib611" , "dolphins" ) || die "No puedo conectarme";

print "Conectado ... ";
$dbh->disconnect || die "no puedo desconectarme";
print " Desconectado ... \n";
use DBI;

$driver = "mysql";
$dsn = "DBI:${driver}:cib611";

$dbh = DBI->connect($dsn , "cib611" , "perldbi") || die "Error al conectar $DBI:errstr\n";

$sth = $dbh->prepare( "SELECT * FROM mega980472") || die "No puedo
preperar Query $DBI:errstr\n";

$sth->execute || die  "No se puede aplicar Query $DBI:errstr\n";

while ( @row = $sth->fetchrow_array() ) {
	print @row , "\n";

}

$dbh->disconnect  || die "Error al desconectar $DBI:errstr\n";
use DBI;

$driver = "mysql";

$dsn = "DBI:${driver}:cib611";

$dbh = DBI->connect($dsn, "cib611", "perldbi") || die "No puedo conectar $DBI::err";

foreach $id ( 4 ) {
 $sth =$dbh->prepare("INSERT INTO megaliths981717(id) VALUES(${id}) || die "Error al preparar SQL $DBI::err";
 $sth->execute || die "Error al ejecutar SQL $DBI::err";
}

$dbh->disconnect || die "Error al desconectarse $DBI::err";
use DBI;

@nombres = ( "Gus","Luis","Vianney");
@location = ( "Narvarte","Lomas Estrella","Pachuca");
$driver = "mysql";

$dsn = "DBI:${driver}:cib611";

$dbh = DBI->connect($dsn, "cib611", "perldbi") || die "No puedo conectar $DBI::err";

foreach $id ( 1,2,3 ) {
 $sth =$dbh->prepare("UPDATE  megaliths SET name = \"$nombres[$id-1]\" , location = \"$location[$id - 1]\" WHERE id = $id") || die "Error al preparar SQL $DBI::err";
 $sth->execute || die "Error al ejecutar SQL $DBI::err";
}

$dbh->disconnect || die "Error al desconectarse $DBI::err";
use DBI;

$driver = "mysql";
$dsn = "DBI:${driver}:cib611";

$dbh = DBI->connect($dsn , "cib611" , "perldbi") || die "Error al conectar $DBI:errstr\n";

$sth = $dbh->prepare( "SELECT location FROM megaliths WHERE name = ?") || die "No puedo preperar Query $DBI:errstr\n";

$sth->bind_param( 1 , "Gus");
$sth->execute || die  "No se puede aplicar Query $DBI:errstr\n";

while ( @row = $sth->fetchrow_array() ) {
	print @row , "\n";

}

$dbh->disconnect  || die "Error al desconectar $DBI:errstr\n";
use DBI;

$driver = "mysql";

$dsn = "DBI:${driver}:cib611";

$dbh = DBI->connect($dsn, "cib611", "perldbi") || die "No puedo conectar $DBI::err";

foreach $id ( 4,5,6 ) {
 $sth =$dbh->prepare("INSERT INTO megaliths(id) VALUES(?)") || die "Error al preparar SQL $DBI::err";
 $sth->bind_param(1,$id);
 $sth->execute || die "Error al ejecutar SQL $DBI::err";
}

$dbh->disconnect || die "Error al desconectarse $DBI::err";
use DBI;

@nombres = ( "Gaby","Jose Alberto","Victor");
@location = ( "Pachuca","Toreo","Bondojito");
$driver = "mysql";

$dsn = "DBI:${driver}:cib611";

$dbh = DBI->connect($dsn, "cib611", "perldbi") || die "No puedo conectar $DBI::err";

foreach $id ( 4,5,6 ) {
 $sth =$dbh->prepare("UPDATE  megaliths SET name = ? , location = ? WHERE id = ?
") || die "Error al preparar SQL $DBI::err";
 $sth->bind_param(1, $nombres[$id - 4]);
 $sth->bind_param(2, $location[$id - 4]);
 $sth->bind_param(3, $id);
 $sth->execute || die "Error al ejecutar SQL $DBI::err";
}

$dbh->disconnect || die "Error al desconectarse $DBI::err";
