小编DB-*_*DB-的帖子

我试图理解这个Perl代码......

如果有一个流可以工作,如果有2个或更多个流,它会以匿名哈希中的奇数个元素发出警告.在这种情况下似乎返回一个数组.如何正确地将数组元素添加到@streams？它似乎为if子句中的HASH情况正确添加.else子句是否是bunk？

 my $x = $viewedProjectDataObj->{streams};

    if (ref($x) eq 'HASH') {
        push(@streams, $x->{id});
    } elsif (ref($x) eq 'ARRAY') {

        print "$x\n";
        print "@$x\n";
        my @array = @$x;
        foreach my $obj (@array) {
            print "in $obj\n";
            print Dumper( $obj);
            push(@streams,  ($obj->{id}) );
        }
    }

    print "streamcount " . @streams % 2;
    print Dumper(@streams);


    my $stream_defect_filter_spec = {
        'streamIdList' => @streams,
        'includeDefectInstances' => 'true',
        'includeHistory' => 'true',
    };

    my @streamDefects = $WS->get_stream_defects($defectProxy, \@cids,             $stream_defect_filter_spec);
    print Dumper(@streamDefects);

我正在添加下一行......

if ($defectSummary->{owner} eq "Various") { …