Ужос

 

sub get_switchUuid {
    my ($sname) = @_;
    my $content = Vim::find_entity_views(view_type => 'Datacenter', filter => {name => $datacenter});
    unless (@$content) {
        die "Datacenter <$datacenter> is not found.";
    }
    if ($#{$content} != 0) {
        die "Datacenter <$datacenter> is not unique.";
    }
    my $ent = shift (@$content);
    $ent = Vim::get_view(mo_ref => $ent->networkFolder);
    $ent = $ent->childEntity;
    my $net = 0;
    foreach (@$ent) {
        if ($_->type eq "VmwareDistributedVirtualSwitch") {
            my $tmt = Vim::get_view(mo_ref => $_);
            if ($tmt->name eq $sname) {
                $net = $tmt;
                last;
            }
        }
    }
    if ($net == 0) {
        return 0;
    }
    $net->uuid;
}

Как вы на нем пишете? Я постоянно себе в ногу попадаю, куда-бы не целился.

P.S. Ну и отдельный низкий поклон программистам из vmware.

Originally published at U.F.M's Homepage. You can comment here or there.