Tsm. TSM é uma extensão Perl para o Tivoli Storage Manager.
Baixe Agora

Tsm. Classificação e resumo

Tsm. Tag

armazenar Gerente Módulo Perl. Tivoli. Tivoli Storage Manager. Extensão TSM

Tsm. Descrição

O TSM é uma extensão Perl para o Tivoli Storage Manager. TSM é uma extensão Perl para o uso TSM Tivoli Storage Manager.SYNOPSIS; my $ tsm-> new (); my $ tsm-> new (id => "user id"); my $ tsm-> new (id => "user id", pa => "password"); my $ tsm-> new (file => "rcfile"); my $ OutputString = $ tsm-> dsmadmc ( "Opções", "tsm_command"); minha @columns = $ tsm-> get_columns (TABLE_NAME); my $ ARRAYREF = select ( "select_string"); my $ entries_added = select_hash ($ hashref, "select_string"); my $ hashref = select_single ( "select_string"); Este módulo irá dar-lhe um acesso conveniente para o console administrativo do servidor TSM. Ele foi desenvolvido sob AIX 4.3.3, TSM 4.1.2 e PERL 5.6.0. A partir de agora, eu não posso garantir que ele vai trabalhar em Win32 systems.USAGEBefore usando o módulo, você tem que especificar a sua utilização com o uso TSM; O primeiro passo de se conectar ao servidor TSM é criar uma nova instância TSM por um dos das seguintes formas: 1. my $ tsm-> new (); Este é o caminho padrão, que irá gerir o ID e senha manuseio para você. Ele vai olhar para um arquivo .tsmrc tanto no diretório atual ou no diretório home do usuário que executs o comando (nesta ordem). Veja abaixo para obter detalhes sobre .tsmrc. Se os arquivos estão ausentes, não pode ser lido. informações perder, o usuário será solicitado a fornecer o ID (se ausente) eo password.If você não gosta deste mecanismo, você pode influenciar o comportamento da seguinte forma: 2. my $ tsm-> new (id => "user_id"); Especifique o usuário TSM, whoc deve ser usado para o comando. A senha pode ainda ser fornecido no .tsmrc.3. my $ tsm-> new (id => "user_id", pa => "password"); Especificar usuário e senha (não recomendado, uma vez que a senha está em texto claro) .4. my $ tsm-> new (file => "rcfile"); Especifique outro arquivo com um ID de usuário ea password.After iniciar uma instância com o servidor TSM, você pode usá-lo para acessar o servidor TSM. O comando mais comum é o console administrativo regular: my @ saída = $ tsm-> dsmadmc ( "opções", "comando TSM"); Esteja ciente, que a saída é diferente do que você costuma ver no próprio console. Atualmente, estou usando o mecanismo de tubo de UNIX que irá criar um fluxo de saída não formatado. Se alguém sabe a melhor (sem passar por um outputfile), por favor me avise. A saída em si vai ser uma matriz de lines.I saída implementaram 3 selecione comandos para consultar o banco de dados diretamente: 1. my $ ARRAYREF = $ tsm-> select ( "select_string"); Este comando SELECT retorna uma referência a uma matriz de hash com a saída. Cada elemento da matriz contém uma referência a um hash com os nomes das colunas como as teclas e os valores correspondentes. No exemplo a seguir, nós imprimimos o nome do volume e da piscina de armazenamento de todos os volumes: my $ ARRAYREF = $ tsm-> select ( "* de volumes"); foreach my $ element (@ $ ARRAYREF) {print "$ elemento -> {VOLUME_NAME}: t $ elemento -> {STGPOOL_NAME} n"; }; Se você usar o genérico "*" para as colunas, você pode usar a seguinte função para obter uma matriz dos nomes de coluna: o meu @columns = $ tsm-> get_columns (TABLE_NAME); 2. my $ hashref = select_single ( "select_string"); Esta é uma forma mais simples do primeiro, que é mais conveniente se você sabe, que a consulta retorna apenas um registro, por exemplo, my $ statusref = $ tsm-> select_single ( "* de status"}; print "$ statusref -> {RESTART_DATE} n"; em vez do meu $ statusref = $ tsm-> select ( "* de status"}; print " $ statusref -> {RESTART_DATE} n "; 3 my $ entries_added = select_hash ($ hashref,. "select_string"); Este comando select pode ser usado, se os valores da primeira coluna são exclusivas Eles serão usados. como as teclas de hash, que deve ser fornecida para o comando. Este hash de conterá então os valores da primeira coluna como as suas chaves, e uma referência a um hash como o valor, o qual contém as colunas / valor das colunas 2 . -n Esta saída é útil, se você quiser combinar consultas diferentes para uma saída, por exemplo libvolumes e volumes com o nome de volume como a chave vamos ver como ele funciona:. no exemplo a seguir, nós estamos usando um hash existente com um . entidade falso, e fundindo-a com o resultado do comando select_hash minhas% volumes = ( 'xxxxxx' => {FAKE_ENTRY => "TEST"}); meus $ retval = $ tsm-> select_hash (% volumes, "* from volumes onde volume_na ME = 'xxxxxx' "); imprimir "Eu ainda estou lá: 'xxxxxx' -> $ volumes { 'xxxxxx'} {} FAKE_ENTRY n"; imprimir "$ elementos RetVal alterado ou newn"; foreach my $ element (chaves de classificação% volumes) {print "$ elemento: $ volumes {$ elemento} {} STGPOOL_NAME n"; }; O .tsmrc arquivo: Este arquivo contém a senha, ele não deve ser legível para qualquer um, mas o proprietário. Se você precisar de mais de uma instância com diferentes IDs de usuário, você pode especificar o nome do arquivo com o "file => file_name" sintaxe parameter.The do .tsmrc é a seguinte: user_ID requisitos de senha PA: · Perl.

Tsm. Software Relacionado