init III

Perl VM ESX Storage Zuordnung/check.pl

@@ -0,0 +1,49 @@
+#!/usr/bin/perl
+
+my %esxrz;
+my %storagerz;
+my %vmhostds;
+
+read_csv ("esx-rz.csv", \%esxrz);
+read_csv ("storage-rz.csv", \%storagerz);
+read_csv2 ("VMsHostsDatastores.csv", \%vmhostds, \%esxrz, \%storagerz);
+
+foreach ( sort keys %vmhostds) {
+   if ($vmhostds{$_}->{esx}->{dc} ne $vmhostds{$_}->{ds}->{dc}) {
+      next if ($vmhostds{$_}->{ds}->{datastore} eq "images" );
+      next if ($vmhostds{$_}->{ds}->{datastore} eq "tso_install" );
+      printf "%-25s %-25s (%-3s)    %-20s (%-3s)\n", $_, $vmhostds{$_}->{esx}->{hostname}, $vmhostds{$_}->{esx}->{dc}, $vmhostds{$_}->{ds}->{datastore}, $vmhostds{$_}->{ds}->{dc};
+   }
+}
+
+sub read_csv {
+   my ($file, $ref_hash) = @_;
+   open FILE, "$file" or die $!;
+   my $key;
+   my $val;
+   while (my $line = <FILE>) {
+        chomp($line);
+        ($key, $val) = split /,/, $line;
+         $ref_hash->{$key} = $val;
+    }
+   close FILE;
+}
+
+sub read_csv2 {
+   my ($file, $ref_hash, $ref_esx, $ref_ds) = @_;
+   open FILE, "$file" or die $!;
+   my $key;
+   my $esx;
+   my $ds;
+   while (my $line = <FILE>) {
+        chomp($line);
+        $line =~ s/"//g; $line =~ s/\r//g;
+        ($key, $esx, $ds) = split /,/, $line;
+         $ref_hash->{$key}->{esx}->{hostname} = $esx;
+         $ref_hash->{$key}->{esx}->{dc} = $ref_esx->{$esx};
+         
+         $ref_hash->{$key}->{ds}->{datastore} = $ds;
+         $ref_hash->{$key}->{ds}->{dc} = $ref_ds->{$ds};
+    }
+   close FILE;
+}