Ужос

[ufm]

 

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.

Comments

[alexott.livejournal.com]

это ты про язык Ц? "1972 - Dennis Ritchie invents a powerful gun that shoots both forward and backward simultaneously. Not satisfied with the number of deaths and permanent maimings from that invention he invents C and Unix." :-)

[alexott.livejournal.com]

а, вижу - код с github не проехал.... ну тогда другая цитата: "1987 - Larry Wall falls asleep and hits Larry Wall's forehead on the keyboard. Upon waking Larry Wall decides that the string of characters on Larry Wall's monitor isn't random but an example program in a programming language that God wants His prophet, Larry Wall, to design. Perl is born."

[ufm.livejournal.com]

Вот тебе смешно, а я мучаюсь. :)

[alexott.livejournal.com]

ну я тыс. 30 строк на нем написал когда-то, но лет 7-8 наверное уже не сталкивался, за исключением мелкого скриптинга

[sfy-y.livejournal.com]

А это потому, что ты перла (в отличие от сей и форта) не внутрил. Я видел, как пишут продвинутые перлятники. На си это мало похоже, парадигма другая.

Я тоже не перлятник, писал примерно как ты, си-стайл.

[ufm.livejournal.com]

Юра, не пользуйся дурными переводами. Не "внутрил" а "грокнул". :)

[sfy-y.livejournal.com]

Вах-вах-вах. :)))

[keen.livejournal.com]

старомыслы ненутрят ангсоц

[ico.livejournal.com]

разве-ж это ужос?

Это пиндец! М А Р С И А Н Е!!!!!

[k-g-b.livejournal.com]

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."; }

Над этой фразой - плакал. Так не пишут, так не говорят. Это не люди. "Недо" или "пере" - пусть решают сами ...

Re: Это пиндец! М А Р С И А Н Е!!!!!

[ufm.livejournal.com]

Ну powershell ничем не лучше в этом плане :)

[baklan.livejournal.com]

Через жопу можно на любом языке программирования писать. Дело не в языке.

[tolok.livejournal.com]

perl - моя любовь уж лет 7 как. он прекрасен!

Как вы на нем пишете?

[poige.livejournal.com]

> if ($#{$content} != 0)

Не использую такой синтаксис для размера массива. В скалярном контексте значение массива это его размер. Читается гораздо лучше.

> foreach (@$ent) {
> if ($_->type

Не использую $_. Гораздо правильнее назначить локально определённую переменную, с вменяемым названием.

Так, по мелочи, и набегает. ;-)

Re: Как вы на нем пишете?

[alexchorny.livejournal.com]

Тем более здесь по смыслу как раз лучше использовать размер, а не индекс последнего элемента.

[avseyev.livejournal.com]

Кто же его читает, на нем только пишут! Write only language.