Select Code to Download

List of Zones in this Stack……..
...
ALLOCATED STORAGE:            81920 GB                      24708 GB  
+                    57211 GB                      69.84%

#!/usr/bin/perl
...
#&get_Kvm_Clusters_of_Zones('hvm.txt');
&get_HostInfo_of_Clusters('hvm.txt');

 $VAR1 =  [
          'SVM-Zone',
...
          ];

------

$VAR1 = {
          'SVM-Zone' => {
...
        };

---------

          'SVM-Zone' => {
                          'PO26-CLUSTER01' => {
...
                                                  'MEMORY:' => '20.16'
+,
                                                  'k2b-lhv-04.example.
+com' => 'Disconnected'
                                                }

Zone   =>   Zonename,    Cluster  =>  Cluster_Name,   Host => Hostname
+,    HostStatus  => Up/Down , CPU  => 50, Memory => 50