使用Perl的两个数组的差异

发布时间：2020-12-15 21:21:24 所属栏目：大数据来源：网络整理

导读：我有两个数组。我需要检查一个元素是否出现在另一个元素中。有没有比嵌套循环更有效的方法呢？我每个人都有几千个元素，需要经常运行程序。解决方法另一种做法是使用 Array::Utils use Array::Utils qw(:all); my @a = qw( a b c d ); my @b = qw( c d e

我有两个数组。我需要检查一个元素是否出现在另一个元素中。

有没有比嵌套循环更有效的方法呢？我每个人都有几千个元素，需要经常运行程序。

解决方法

另一种做法是使用 Array::Utils

use Array::Utils qw(:all);

    my @a = qw( a b c d );
    my @b = qw( c d e f );

    # symmetric difference
    my @diff = array_diff(@a,@b);

    # intersection
    my @isect = intersect(@a,@b);

    # unique union
    my @unique = unique(@a,@b);

    # check if arrays contain same members
    if ( !array_diff(@a,@b) ) {
            # do something
    }

    # get items from array @a that are not in array @b
    my @minus = array_minus( @a,@b );

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!