Vmware

#!/usr/bin/perl -w

use strict;
use Data::Dumper;

$/ = "\n\n";

print "Name,State,Status,Host,provisioned,used,cpu,mem,percent,vmwaretools,dnsname,evc,uuid,notes,alarms\n";
while (<>){
    # print;
    my $r;
    ( $r->{'name'} , $r->{'state'}, $r->{'status'}, $r->{'host'}, $r->{'provisioned'}, $r->{'used'}, $r->{'cpu'} , $r->{'mem'}, $r->{'percent'}, $r->{'vmwaretools'}, $r->{'dnsname'}, $r->{'evc'}, $r->{'uuid'} , $r->{'notes'} , $r->{'alarms'}  ) = split "\n";
    print $r->{'name'} .",". $r->{'state'}.",". $r->{'status'}.",". $r->{'host'}.",". $r->{'provisioned'}.",". $r->{'used'}.",". $r->{'cpu'} .",". $r->{'mem'}.",". $r->{'percent'}.",". $r->{'vmwaretools'}.",". $r->{'dnsname'}.",". $r->{'evc'} .",". $r->{'uuid'} .",". $r->{'notes'} .",". $r->{'alarms'} . "\n";}