perfsonar_ps :: Cliente :: Estado :: SQL Un módulo que proporciona métodos para interactuar con una base de datos de estado MA directamente
Descargar ahora

perfsonar_ps :: Cliente :: Estado :: SQL Clasificación y resumen

perfsonar_ps :: Cliente :: Estado :: SQL Etiquetas

base de datos Sql Módulo perl estado Base de datos de estado MA Estado de SQL

perfsonar_ps :: Cliente :: Estado :: SQL Descripción

Un módulo que proporciona métodos para interactuar con una base de datos de estado de estado directamente PERFSONAR_PS :: Cliente :: Estado :: SQL es un módulo PERL que permite interactuar con el Backend de estado MA SQL directamente utilizando un conjunto estándar de métodos. La API proporcionada es idéntica a la API para interactuar con el MAS a través de su interfaz de servicios web. Por lo tanto, un cliente escrito para leer o actualizar un estado MA puede modificarse fácilmente para interactuar directamente con su base de datos subyacente, lo que permite interacciones más eficientes si es necesario. El módulo se debe tratar como un objeto, donde cada instancia del objeto representa una conexión a una sola base de datos. Cada método puede ser invocado en el objeto para la base de datos específica. HSYNOPSIS Use PERBSONAR_PS :: Cliente :: Estado :: SQL; My $ status_client = new perfsonar_ps :: Cliente :: Estado :: SQL ("DBI: SQLite: dbname = status.db"); Si (no definido $ status_client) {impresión "Problema creando cliente para el estado MA \ N"; Salida (-1); } My ($ estado, $ res) = $ status_client-> abierto; Si ($ Estado! = 0) {Imprimir "Estado de apertura Problema MA: $ Res \ N"; Salida (-1); } ($ estado, $ res) = $ status_client-> getall (); Si ($ Estado! = 0) {Imprimir "Problema Obteniendo una base de datos completa: $ res \ n"; Salida (-1); } Mis @Links = (); foreach My $ ID (teclas% {$ res}) {impresión "ID de enlace: $ ID \ N"; foreach My $ link (@ {$ res -> {$ id}}) {imprimir "\ t". $ enlace-> getstarttime. "-". $ link-> getendtime. "\norte"; Imprimir "\ t nivel de conocimiento:". $ enlace-> get knowledge. "\norte"; Imprimir "\ T-OPERSTATUS:". $ enlace-> getoperStatus. "\norte"; Imprimir "\ t-adminstatus:". $ link-> getadminstatus. "\norte"; } PUSH @LINKS, $ ID; } ($ estado, $ res) = $ status_client-> getlinkstatus (\ @ enlaces, ""); Si ($ Estado! = 0) {Imprimir "Problema obteniendo el estado más reciente del enlace: $ res \ n"; Salida (-1); } foreach mis $ id (teclas% {$ res}) {impresión "ID de enlace: $ ID \ N"; foreach My $ link (@ {$ res -> {$ id}}) {impresión "-operStatus:". $ enlace-> getoperStatus. "\norte"; Imprimir "-Adminstatus:". $ link-> getadminstatus. "\norte"; }} ($ estado, $ res) = $ status_client-> getlinkhistory (\ @ enlaces); Si ($ Estado! = 0) {Imprimir "Problema Obteniendo Historial de enlaces: $ Res \ N"; Salida (-1); } foreach mis $ id (teclas% {$ res}) {impresión "ID de enlace: $ ID \ N"; foreach My $ link (@ {$ res -> {$ id}}) {impresión "-operStatus:". $ link-> getoperStatus. "\norte"; Imprimir "-Adminstatus:". $ link-> getadminstatus. "\norte"; }} Requisitos: · Perl

perfsonar_ps :: Cliente :: Estado :: SQL Software relacionado