这篇文章主要介绍了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 |
感谢你能够认真阅读完这篇文章，希望小编分享的“perl中如何对数组字符串取交集，并集，差集包”这篇文章对大家有帮助，同时也希望大家多多支持云搜网，关注云搜网行业资讯频道，更多相关知识等着你来学习!
