6.0

VMware, Inc. 37
Chapter 3 Refining vSphere SDK for Perl Scripts
Vim::load_session(session_file => '.visession');
Alternatively,youcanloadasessionusingtheobject‐orientedsyntaxasfollows:
my $service_url = "https://$server/sdk/vimService";
my $vim = Vim->new(service_url => $service_url);
$vim = $vim->load_session(session_file => '.visession');
Using Multiple Sessions
Insomecases,youmightwanttocreatesessionsonseveralvSphereserversatonce,orcreatemorethanone
sessiononthesameserver.
EachtimeanapplicationconnectstoaserverinthevSphereenvironment,asessionbetweentheapplication
andtheserveriscreated.ThevSphereSDKfor
PerlrepresentsthesessionasavSphereSDKforPerlobject.
Whenyouusesinglesessions,oneglobalobjectisimplicitforthesessions.
Formultipleobjects,youcannotusetheimplicitglobalvSphereobject.Instead,youmustcreateanduse
vSphereobjectsexplicitly,andusetheobject‐orientedsyntaxfor
callingvSphereSDKforPerlmethods.
Youcreateanopensessionintwostages.
1 CreateavSphere objectusingthenew()constructor.
2Loginbycallingtheobject‐orientedlogin()method.Theargumentstotheobject‐orientedlogin()
methodarethesameasfortheproceduralVim::login()subroutine.
MostproceduralVim::methods
haveanobject‐orientedcounterpart.Theproceduralmethodsoperateonan
implicitlyspecifiedglobalvSphereobject.Object‐orientedmethodsoperateontheexplicitlysuppliedvSphere
object.
Thefollowingcodefragmentfrom/samples/sessions/multisession.plillustrateshowtousemultiple
sessions,usingtheobject‐orientedprogrammingstyleinvSphereSDKforPerl.
Example 3-3. Using Multiple Sessions
use VMware::VIRuntime;
...
# create object for each host
my @vim_objs;
my $url;
$url = Opts::get_option('url');;
push @vim_objs, Vim->new(service_url => $url);
$url = Opts::get_option('url2');
push @vim_objs, Vim->new(service_url => $url);
# login to all hosts
my $username = Opts::get_option('username');
my $password = Opts::get_option('password');
$vim_objs[0]->login(user_name => $username, password => $password);
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";