简化递归函数

Question

当我围绕recursion绞尽脑汁的时候，我希望能用以下简单的问题来更好地理解递归本身，同时也本着TIMTOWTDI的精神去达到我的目标。

问题很简单，考虑到复杂的Perl数据结构，$cds (保证从HASH开始，嗯，它有区别吗?)，我希望遍历$cds并删除单层数组。

我从下面开始，效果很好.

sub reduce_1level
{
    my $cds = shift;

    if (ref $cds eq 'HASH')
    {
        foreach my $key (keys %$cds)
        {
            if (ref $cds->{$key} eq 'ARRAY')
            {
                if (@{$cds->{$key}} == 1)
                {
                    $cds->{$key} = $cds->{$key}[0];
                }
                else
                {
                    reduce_1level ($cds->{$key});
                }
            }
            elsif (ref $cds->{$key} eq 'HASH')
            {
                reduce_1level ($cds->{$key});
            }
        }
    }
    elsif (ref $cds eq 'ARRAY')
    {
        foreach (@$cds)
        {
            reduce_1level ($_) if ref;
        }
    }
}

..。但我觉得代码可以更简单更短。在对类似问题进行针刺之后，我修改为：

sub reduce_1level
{
    my $cds = shift;

    if (ref $cds eq 'ARRAY')
    {
        foreach (@$cds)
        {
            reduce_1level ($_) if ref;
        }
    }
    elsif (ref $cds eq 'HASH')
    {
        foreach my $key (keys %$cds)
        {
            if (ref $cds->{$key} eq 'ARRAY' and @{$cds->{$key}} == 1)
            {
                $cds->{$key} = $cds->{$key}[0];
            }
            next unless ref $cds->{$key};
            reduce_1level ($cds->{$key});
        }
    }
}

我想知道还有什么更好的方法可以达到缩进的目标吗？

Answer 1

忘了复杂性吧。这甚至都不正确。

有些调用处理两个级别的数据结构，因此您应该有重复的代码。因此，以下中的所有单元素数组都不会被消除：

{ foo => [ [ 3 ] ] }

不要试图在同一个调用中处理两个级别。

sub reduce_1level {
    our $cds; local *cds = \shift;   # alias $cds = shift;

    my $reftype = ref($cds)
        or return;

    if ($reftype eq 'HASH') {
        reduce_1level($_) for values %$cds;
    }
    elsif ($reftype eq 'ARRAY') {
        if (@$cds == 1) {
            $cds = $cds->[0];
            reduce_1level($cds);
        } else {
            reduce_1level($_) for @$cds;
        }
    }
    else {
        die("Unsupported reference type $reftype\n");
    }
}