perl中对数组字符串取交集，并集，差集包

Array::Utils ，perl中对两个数据取交集，并集差集等等，union，intersect，diff等操作

我们有时候要对两个数据取一下交集和并集，union，intersect，diff等操作，虽然自己写脚本也能实现，但是已经有包了，为啥不用别人写好的包呢，这里介绍一个包就是解决这个问题的：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 );

包的详细帮助：https://metacpan.org/pod/Array::Utils

发表于 2018-08-06 17:51
阅读 ( 5133 )
分类：perl

perl中对数组字符串取交集，并集，差集包

你可能感兴趣的文章

相关问题

0 条评论

作家榜 »