Using perl Syntax Highlighting
#Conectamos con la BD, si no podemos, ponemos un mensaje de error
my $dbh = DBI->connect("DBI:$driver:$base_datos",$usuario,$clave) || die "\n Error al abrir la base datos Intenta de nuevo: $DBI::errstr\n";
#Decimos que hemos conectado
print "\nSe ha conectado a $base_datos en la BD ES LA OSTIA \n";
#Insertamos datos en la BD
print "\nInsertamos datos en la BD\n";
$resultado = $dbh->do ("insert into $tabla values (100,'Melocotones',1.2);") || warn "Error en inserci¢n en $tabla: $DBI::errstr\n";
#Nos desconectamos de la BD. Mostramos un mensaje si hay algun fallo
$dbh->disconnect || warn "\nFallo al desconectar.\nError: $DBI::errstr\n";
close (archivo);
#Terminamos
exit;
my $dbh = DBI->connect("DBI:$driver:$base_datos",$usuario,$clave) || die "\n Error al abrir la base datos Intenta de nuevo: $DBI::errstr\n";
#Decimos que hemos conectado
print "\nSe ha conectado a $base_datos en la BD ES LA OSTIA \n";
#Insertamos datos en la BD
print "\nInsertamos datos en la BD\n";
$resultado = $dbh->do ("insert into $tabla values (100,'Melocotones',1.2);") || warn "Error en inserci¢n en $tabla: $DBI::errstr\n";
#Nos desconectamos de la BD. Mostramos un mensaje si hay algun fallo
$dbh->disconnect || warn "\nFallo al desconectar.\nError: $DBI::errstr\n";
close (archivo);
#Terminamos
exit;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Hasta ahí todo bien, pero cómo hago cuando quiero insertar un archivo con esta información en la base de datos?
- Código: Seleccionar todo
Insert into FINAL_PLV (fecha, idcid, disponibilidad, latencia, perdida_paq, jitter_avg, disponibilidad_remoto, throughput, clase) values(to_date('20071203000000','YYYYMMDDHH24MISS'),76473,1,17.9,0,1,1,0,2);
¿Tendría que abrir el archivo? ¿separar los campos y meterlos como variables, después hacer un while, para los demás renglones?? ¿no existe algo así como un open ( X.dat) y un insert X.dat...?