vSphere SDK for Perl Programming Guide - Documentation - VMware

vSphere SDK for Perl Programming Guide
if (Opts::option_is_set('username2')) {
$username = Opts::get_option('username2');
}
if (Opts::option_is_set('password2')) {
$password = Opts::get_option('password2');
}
$vim_objs[1]->login(user_name => $username, password => $password);
# list VM's for all hosts
foreach my $vim_obj (@vim_objs) {
print "List of virtual machines:\n";
my $vm_views = $vim_obj->find_entity_views(view_type => 'VirtualMachine');
foreach my $vm (@$vm_views) {
print $vm->name . "\n";
}
print "\n";
}
# logout
foreach my $vim_obj (@vim_objs) {
$vim_obj->logout();
}
Learning About Object Structure Using Data::Dumper
The vSphere SDK for Perl transparently uses the Data::Dumper Perl module (a standard library) to create the
client‐side view objects. Example 3‐4 illustrates how you can use Data::Dumper to explore view objects and
corresponding vSphere objects.
Lines 12 through 14 set several parameters of Data::Dumper, as follows:
Sortkeys orders the name‐value pairs alphabetically by name.
Deepcopy enables deep copying of structures. Deep copying ensures that the output is straightforward
and tree‐like.
Indent set to 2 causes Data::Dumper to take hash key length into account in the output. The indent
results in a more readable format.
Example 3-4. Using Data::Dumper to Output Perl Object Structures
01 use strict;
02 use warnings;
03
04 use VMware::VIRuntime;
05 use VMware::VILib;
06
07 # Parse connection options and connect to the server
08 Opts::parse();
09 Opts::validate();
10 Util::connect();
11
12 $Data::Dumper::Sortkeys = 1; #Sort the keys in the output
13 $Data::Dumper::Deepcopy = 1; #Enable deep copies of structures
14 $Data::Dumper::Indent = 2; #Output in a reasonable style (but no array indexes)
15
16
17
18 # Get the view for the target host
19 my $host_view = Vim::find_entity_view(view_type => 'HostSystem');
20
21 print "The name of this host is ", $host_view->name . "\n\n";
22
38 VMware, Inc.