TSM

TSM, Tivoli Depolama Yöneticisi için perl uzantısıdır.
Şimdi İndirin

TSM Sıralama ve Özet

Reklamcılık

  • Rating:
  • Lisans:
  • Perl Artistic License
  • Fiyat:
  • FREE
  • Yayıncı adı:
  • Joerg Nouvertne
  • yayıncı web sitesi:
  • http://search.cpan.org/~swordsman/TSM_0.60/TSM.pm

TSM Etiketler


TSM Açıklama

TSM, Tivoli Depolama Müdürü için perl uzantısıdır. TSM Tivoli Depolama Manager.SYNOPSIS kullanımı TSM bir Perl olduğu; Benim $ tsm-> () yeni; Benim $ tsm-> yeni (id => "kullanıcı kimliği"); Benim $ tsm-> yeni (id => "kullanıcı kimliği", pa => "Şifre"); Benim $ tsm-> yeni (dosya => "rcfile"); benim $ OutputString = $ tsm-> dsmadmc ( "seçenekler", "tsm_command"); Benim @ sütunları = $ tsm-> get_columns (TABLE_NAME); benim $ arrayref = ( "select_string") seçin; Benim $ entries_added = select_hash ($ hashref, "select_string"); benim $ hashref = select_single ( "select_string"); Bu modül size TSM sunucusunun yönetim konsolunda için uygun bir erişim sağlayacaktır. Bu AIX 4.3.3, TSM 4.1.2 ve PERL 5.6.0 altında geliştirilmiştir. Şu an itibariyle, ben kullanım TSM ile kullanımını belirlemek için modül, sen gelmiş kullanarak Win32 systems.USAGEBefore üzerinde çalışacağını garanti edemez; TSM sunucusuna bağlanma ilk adımı biri tarafından yeni bir TSM örneğini oluşturmaktır aşağıdaki yolları: 1. Benim $ tsm-> yeni (); Bu sizin için bir kimlik ve şifre kullanımını yönetecek varsayılan yoludur. Bu geçerli dizinde ya da (bu sırayla) komutunu executs kullanıcının ANA dizininde .tsmrc ya bir dosya için bakacağız. .tsmrc ilgili ayrıntılar için aşağıya bakınız. dosyalar eksikse, okunamaz. (Eksik varsa) bayan bilgiler, kullanıcı kimliği için istenir ve aşağıdaki gibi bu mekanizma sevmiyorum password.If, sen davranışını etkileyebilir: 2. Benim $ tsm-> yeni (id => "user_id"); komutu için kullanılmalıdır whoc TSM kullanıcıyı belirtin. şifre hala .tsmrc.3 sağlanabilir. Benim $ tsm-> yeni (id => "user_id", pa => "Şifre"); 0,4 (şifre düz metin olarak olduğundan, önerilmez) kullanıcı ve şifresi belirleyin. Benim $ tsm-> yeni (dosya => "rcfile"); Bir kullanıcı kimliği ve TSM sunucusuyla bir örneğini başlatmak password.After sahip başka bir dosya belirtin sen tsm sunucusuna erişmek için kullanabilirsiniz. En yaygın komut Normal yönetim konsoludur: my @ çıkış = $ tsm-> dsmadmc ( "seçenekler", "tsm komutu"); lütfen unutmayın, bu çıkış genellikle konsolun kendisi de gördüklerinizin farklıdır. Şu anda bir biçimlendirilmemiş çıkış akımı oluşturur UNIX boru mekanizması kullanıyorum. Herkes daha iyi (bir ÇıktıDosyası geçmeden) bilirse, lütfen bana bildirin. 1: çıkış kendisi çıkış lines.I bir dizi doğrudan veri tabanını sorgulamak üzere 3 seçme komutları uygulayan olacaktır. benim $ arrayref = $ tsm-> ( "select_string") seçin; Bu seçme komutu çıkışı ile karma bir dizi için bir başvuru verir. Dizinin her elemanının şifreler ve karşılık gelen değerler olarak sütun adları olan bir karma bir referans içerir. Aşağıdaki örnekte, birim adını ve tüm birimlerin depolama havuzu yazdırmak: my $ arrayref = $ tsm-> ( "birimlerden *") seçin; Benim $ elemanı (@ $ arrayref) {print "-> {VOLUME_NAME} $ öğe: t $ elemanı -> {STGPOOL_NAME} n" foreach; }; ; 2 my @ sütunları = $ tsm-> get_columns (TABLE_NAME): Eğer sütunlar için "*" jenerik kullanırsanız, sütun adlarının dizisini almak için aşağıdaki işlevi kullanabilirsiniz. benim $ hashref = select_single ( "select_string"); Bu, sorgunun döndürdüğü tek bir kayıt, örneğin biliyorsanız daha uygun olur ilki daha basit bir şeklidir benim $ statusref = $ tsm-> select_single ( "* statüsünden"}; print "$ statusref -> {RESTART_DATE} n"; yerine benim $ statusref = $ tsm-> seçeneğini ( "* statüsünden"}; print " $ statusref -> {RESTART_DATE} n "; 3 my $ entries_added = select_hash ($ hashref. "select_string"); ilk sütunun değerlerinin benzersiz olup, bu seçme komutu kullanılabilir Onlar kullanılacaktır. karma anahtar olarak, bu Bu karma daha sonra anahtar olarak ilk kolonun değerlerini içerir. komutuna sağlanır ve gereken sütun 2 sütunları içeren değeri / değer olarak bir karma bir referans . Eğer anahtar olarak hacim adıyla tek çıkışlı mesela libvolumes ve hacimleri farklı sorguları birleştirmek istiyorsanız -n Bu çıkış yararlı olduğunu nasıl çalıştığına bakalım:. aşağıdaki örnekte, a sahip mevcut karma kullanıyorsunuz . sahte varlık ve select_hash komutunun sonucu ile birleştirme benim% hacimleri = ( 'xxxxxx' => {FAKE_ENTRY => "TEST"}); benim $ dönüş_değeri = $ tsm-> select_hash (% hacimleri, "* dan hacimleri nerede volume_na Beni 'xxxxxx'i' ") =; "Ben hala oradayım: 'xxxxxx'i' -> $ hacimler { 'xxxxxx'} {FAKE_ENTRY} n" yazdırmak; "$ Dönüş_değeri elemanlar değiştirilebilir veya newn" yazdırmak; Benim $ elemanı (bir çeşit tuşları% cilt) {print "$ öğe: $ hacimleri {$ eleman} {STGPOOL_NAME} n" foreach; }; Dosya .tsmrc: Bu dosya şifresini içerdiği için, herkes ama sahibi için okunabilir olmamalıdır. Kimlik PA şifre Gereksinimleri user_id: Farklı kullanıcı kimlikleri ile daha sonra bir örneğini gerekiyorsa, .tsmrc "file => dosya_adı" parameter.The sözdizimi ile dosya adını belirtebilirsiniz aşağıdaki gibi olduğu: · Perl


TSM İlgili Yazılım