溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
這篇文章主要介紹了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中如何對數組字符串取交集，并集，差集包”這篇文章對大家有幫助，同時也希望大家多多支持億速云，關注億速云行業資訊頻道，更多相關知識等著你來學習!
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
