Perfsonar_ps :: Cliente :: Status :: SQL Um módulo que fornece métodos para interagir com um banco de dados de status MA diretamente
Baixe Agora

Perfsonar_ps :: Cliente :: Status :: SQL Classificação e resumo

Perfsonar_ps :: Cliente :: Status :: SQL Tag

base de dados Sql. Módulo Perl. status Status MA Base de dados Status SQL.

Perfsonar_ps :: Cliente :: Status :: SQL Descrição

Um módulo que fornece métodos para interagir com um banco de dados de status MA diretamente Perfsonar_ps :: Cliente :: Status :: SQL é um módulo Perl que permite interagir com o status MA SQL Backend diretamente usando um conjunto padrão de métodos. A API fornecida é idêntica à API para interagir com o MAS através de sua interface de serviços da Web. Assim, um cliente escrito para ler ou atualizar um status ma pode ser facilmente modificado para interagir diretamente com seu banco de dados subjacente, permitindo interações mais eficientes, se necessário. O módulo deve ser tratado como um objeto, onde cada instância do objeto representa uma conexão para um único banco de dados. Cada método pode então ser invocado no objeto para o banco de dados específico.Synopsis Use PerfSuSar_ps :: Cliente :: Status :: SQL; Meu $ Status_Client = New PerfSuSar_ps :: Client :: Status :: SQL ("DBI: SQLITE: dbname = status.db"); se (não definido $ status_client) {imprimir "problema criação de cliente para status ma \ n"; saída (-1); } meu (status $, $ res) = $ status_client-> aberto; if ($ status! = 0) {Imprimir "problema de abertura do problema Ma: $ res \ n"; saída (-1); } ($ status, $ res) = $ status_client-> getall (); se ($ status! = 0) {print "problema Obtendo o banco de dados completo: $ res \ n"; saída (-1); } Meu @Links = (); foreach meu ID $ (keys% {$ res}) {imprimir "ID do link: $ id \ n"; foreach meu link $ (@ {$ res -> {$ ID}}) {imprimir "\ t". $ link-> getstarttime. "-". $ link-> getendtime. "\ n"; Imprimir "\ T nível de conhecimento:". $ Link-> Recebimento. "\ n"; Imprimir "\ T-Operstatus:". $ link-> getoperstatus. "\ n"; Imprimir "\ T-AdminStatus:". $ link-> getadminstatus. "\ n"; } Push @Links, $ ID; } ($ status, $ res) = $ status_client-> getlinkstatus (\ @ links, ""); if ($ status! = 0) {print "problema Obter o status do link mais recente: $ res \ n"; saída (-1); } foreach meu ID $ (keys% {$ res}) {imprimir "ID do link: $ id \ n"; foreach meu link $ (@ {$ res -> {$ ID}}) {print "-operstatus:". $ link-> getoperstatus. "\ n"; Imprimir "-Adminstatus:". $ link-> getadminstatus. "\ n"; }} ($ status, $ res) = $ status_client-> getlinkhistory (\ @ links); if ($ status! = 0) {Imprimir "Problema Obtendo Histórico de Link: $ res \ N"; saída (-1); } foreach meu ID $ (keys% {$ res}) {imprimir "ID do link: $ id \ n"; foreach meu link $ (@ {$ res -> {$ ID}}) {print "-operstatus:". $ link-> getoperstatus. "\ n"; Imprimir "-Adminstatus:". $ link-> getadminstatus. "\ n"; }} Requisitos: · Perl.

Perfsonar_ps :: Cliente :: Status :: SQL Software Relacionado