Tsm

TSM ist eine Perl-Erweiterung für den Tivoli-Speichermanager.
Jetzt downloaden

Tsm Ranking & Zusammenfassung

Anzeige

  • Rating:
  • Lizenz:
  • Perl Artistic License
  • Preis:
  • FREE
  • Name des Herausgebers:
  • Joerg Nouvertne
  • Website des Verlags:
  • http://search.cpan.org/~swordsman/TSM_0.60/TSM.pm

Tsm Stichworte


Tsm Beschreibung

TSM ist eine Perl-Erweiterung für den Tivoli-Speichermanager. TSM ist ein Perl-Erweiterung für den Tivoli Storage Manager.SYNOPSIS Verwendung TSM; my $ TSM-> new (); my $ TSM-> new (id => "Benutzer-ID"); my $ TSM-> new (id => "Benutzer-ID", pa => "Passwort"); my $ TSM-> new (file => "rcfile"); my $ output = $ TSM-> dsmadmc ( "Optionen", "tsm_command"); meine @columns = $ TSM-> get_columns (TABLE_NAME); my $ ArrayRef = wählen ( "select_string"); my $ entries_added = select_hash ($ hashref "select_string"); my $ hashref = select_single ( "select_string"); Dieses Modul gibt Ihnen einen bequemen Zugriff auf die Administrationskonsole des TSM-Server. Es wurde unter AIX 4.3.3, 4.1.2 und TSM PERL 5.6.0 entwickelt. Ab sofort kann garantieren, ich nicht, dass es auf Win32 systems.USAGEBefore mit dem Modul arbeitet, müssen Sie seine Verwendung mit Verwendung TSM angeben; Der erste Schritt zum TSM-Server zu verbinden ist, eine neue TSM-Instanz von einem zu schaffen folgende Möglichkeiten: 1. my $ TSM-> new (); Dies ist die Standardmethode, die die ID und das Passwort Handhabung für Sie verwalten. Es wird nach einer Datei .tsmrc entweder im aktuellen Verzeichnis oder im Home-Verzeichnis des Benutzers, der den Befehl executs (in dieser Reihenfolge). Siehe unten für Details über .tsmrc. Wenn die Dateien fehlen, kann nicht gelesen werden. Fehlinformationen, wird der Benutzer für die ID aufgefordert werden (falls nicht vorhanden) und die password.If Sie nicht wie dieser Mechanismus tun, können Sie das Verhalten beeinflussen, wie folgt: 2. my $ TSM-> new (id => "user_id"); Geben Sie den TSM-Benutzer, whoc für den Befehl verwendet werden soll. Das Passwort kann nach wie vor in der .tsmrc.3 zur Verfügung gestellt werden. my $ TSM-> new (id => "user_id", pa => "Passwort"); Geben Sie Benutzer und Kennwort (nicht empfohlen, da das Passwort im Klartext ist) 0,4. my $ TSM-> new (file => "rcfile"); Geben Sie eine andere Datei mit einem Benutzer-ID und dem password.After eine Instanz mit dem TSM-Server initiieren, können Sie es verwenden, um den TSM-Server zuzugreifen. Die häufigste Befehl ist die regelmäßige Administrationskonsole: my @ output = $ TSM-> dsmadmc ( Optionen, tsm Befehl); Bitte beachten Sie,, dass die Ausgabe unterscheidet sich von dem, was Sie in der Regel an der Konsole selbst sehen. Ich bin derzeit den UNIX-Pipe-Mechanismus, der einen unformatierten Ausgangsstrom zu schaffen. Wenn jemand eine bessere weiß (ohne den Umweg über eine Ausgabedatei zu gehen), lassen Sie es mich wissen. Der Ausgang selbst wird eine Reihe von Ausgang lines.I hat seine 3 Select-Befehle implementiert, um die Datenbank direkt abzufragen: 1. my $ ArrayRef = $ TSM-> wählen ( "select_string"); Dieser Auswahlbefehl gibt eine Referenz auf ein Array von Hashes mit dem Ausgang. Jedes Element des Arrays enthält einen Verweis auf einen Hash mit den Spaltennamen als Schlüssel und dem entsprechenden Wert. Im folgende Beispiel drucken wir die Paketnamen und den Speicherpool aller Volumes: my $ ArrayRef = $ TSM-> wählen ( * aus den Bänden); foreach my $ Element (@ $ ArrayRef) {print "$ element -> {VOLUME_NAME}: t $ Element -> {STGPOOL_NAME} n"; }; Wenn Sie die generischen * für die Spalten verwenden, können Sie die folgende Funktion verwenden, um einen Array der Spaltennamen zu erhalten: my @columns = $ TSM-> get_columns (TABLE_NAME); 2. my $ hashref = select_single ( "select_string"); Dies ist eine einfachere Form der ersten, die bequemer ist, wenn Sie wissen, dass die Abfrage nur einen Datensatz, z.B. my $ statusref = $ TSM-> select_single ( "* vom Status"}; print "$ statusref -> {RESTART_DATE} n", statt meine $ statusref = $ TSM-> wählen ( "* vom Status"}; print " $ statusref -> {RESTART_DATE} n "; 3 my $ entries_added = select_hash ($ hashref. "select_string"); Dieser Befehl select verwendet werden kann, wenn die Werte der ersten Spalte sind einzigartig Sie werden verwendet werden. wie die Tasten des Hash, das muss auf den Befehl zur Verfügung gestellt werden. Dieser Hash wird dann die Werte der ersten Spalte als Schlüssel enthält, und eine Referenz auf einen Hash als den Wert, der die Spalten / Wert der Spalt enthält 2 . -n Dieser Ausgang ist sehr nützlich, wenn Sie verschiedene Anfragen an einen Ausgang, zB libvolumes und Volumina mit dem Volume-Namen als Schlüssel kombinieren wollen wir sehen, wie es funktioniert. im folgenden Beispiel sind wir mit einem einen vorhandenen Hash mit . gefälschte Einheit, und mit dem Ergebnis des select_hash Befehls my% Volumen = ( 'xxxxxx' => {FAKE_ENTRY => "TEST"}) vermischen; my $ retval = $ TSM-> select_hash (% Volumen, * aus Volumen wo volume_na me = 'xxxxxx' "); drucken "Ich bin immer noch da: 'xxxxxx' -> $ Band { 'xxxxxx'} {FAKE_ENTRY} n"; print "$ retval Elemente geändert oder NEWN"; foreach my $ Element (Sortierschlüssel% Volumen) {print "$ Element: $ Volumen {$ element} {STGPOOL_NAME} n"; }; Die Datei .tsmrc: Da diese Datei das Passwort enthält, sollte es nicht für jeden, aber der Eigentümer lesbar sein. Wenn Sie mehr als eine Instanz mit verschiedenem Benutzer-IDs benötigen, können Sie die Dateinamen mit der file => Dateiname Parameters.Verfahren Syntax des .tsmrc angeben lautet wie folgt: ID PA Passwort Anforderungen user_id: · Perl.


Tsm Zugehörige Software