SQL :: DB Interfaz Perl a bases de datos SQL
Descargar ahora

SQL :: DB Clasificación y resumen

SQL :: DB Etiquetas

base de datos Sql Módulo perl perla Base de datos SQL Interfaz Perl

SQL :: DB Descripción

SQL :: DB es un módulo Perl que proporciona una interfaz de bajo nivel para bases de datos SQL, utilizando objetos Perl y operadores lógicos. No es un índice relacionado con un objeto como Clase :: DBI y tampoco es una abstracción como SQL :: Resumen. Se cae en algún lugar entre ellos. Después de usar define_tables () para especificar su esquema y crear un objeto SQL: DB, el flujo de trabajo típico es el siguiente: * Conectar () a la base de datos * implementar () el esquema (Crear tablas, etc.) * usando Una o más "filas abstractas" obtenidas a través de AROW () puede hacer () insertar, actualizar o eliminar consultas. * Usando una o más "filas abstractas" obtenidas a través de AROW () puede buscar () (seleccionar) los datos para trabajar con (y posiblemente modificar). * Repita los tres pasos anteriores según sea necesario. Otras consultas (con un nivel más alto de automatización) son posibles con los objetos devueltos por Fetch (). * Desconectar () de la base de datos.SQL :: DB es capaz de generar casi cualquier tipo de consulta, entre ellas, pero no se limita a , Se une, selecciones anidadas, sindicatos, invocaciones del operador del lado de la base de datos, llamadas de función, expresiones agregadas, etc. Sin embargo, este paquete sigue siendo bastante nuevo, y en ninguna parte está cerca. Los parches de retroalimentación, pruebas y (aún mejores) son todos bienvenidos. HSYNOPSIS Use SQL :: dB qw (define_tables contar max); define_tables (, columna => , columna => ,], , columna => , columna => , COLUMN => , columna => , índice => 'nombre',]); MY $ DB = SQL :: DB-> NUEVO (); $ db-> connect ('dbi: sqlite: /tmp/sqldbtest.db', 'Usuario', 'Pass', {}); $ db-> despliegue; My $ PERSONAS = $ DB-> AROW ('PERSONAS'); mis $ direcciones = $ db-> Arow ('direcciones'); $ db-> hacer (insertar => , valores => ,); $ db-> do (insertar => , valores => , # PG: , donde => $ PERSONAS-> NOMBRE == 'HOMER',); My $ ANS = $ DB-> FETCH1 (SELECCIONAR => , de => $ personas, donde => $ PERSONAS-> EDAD> 40,); # Las siguientes impresiones "Recuento de cabeza: 1 Max EDE: 43" Imprimir 'cabeza cuenta:'. $ns-> cuenta_name. 'Max Edad:'. $ns-> max_age. "\ n"; MI @Items = $ db-> fetch (select => , de => $ personas, izquierda_join => $ direcciones, en => $ direcciones -> ID == $ Personas-> Dirección, donde => ($ direcciones-> Ciudad == 'Springfield') y ($ Personas-> Edad> 40), Order_by => $ Personas-> Edad-> Desc, Límite => 10,); # Dame "Homer (43) vive en Springfield" Foreach My $ Artículo (@items) {Imprimir $ artículo-> Nombre, '(', $ artículo-> Edad, ') vive en', $ artículo-> Ciudad, "\norte"; Página de inicio del producto

SQL :: DB Software relacionado