| #!/usr/bin/perl # # 用grep map 獲取兩個(gè)列表的交集并集、補(bǔ)集 # use strict; my @a=("a","b","c","d","e"); my @b=("b","g","f","e"); print "列表a數(shù)據(jù)： @a \n"; print "列表b數(shù)據(jù): @b \n"; my %a = map{$_ => 1} @a; my %b = map{$_ => 1} @b; my @c = map{$_ => 1} @a; # => 操作符起到了hash賦值的作用 # @a @b 交集 my @inter = grep {$a{$_}} @b; # 求交集 print "交集：@inter \n"; # @a,@b 并集 my %merge = map {$_ => 1} @a,@b; # 求并集 my @merge = keys (%merge); print "并集：@merge \n"; # @a,@b的補(bǔ)集@ca，@cb，即@a和@b相對(duì)于@merge的補(bǔ)集 my @ca = grep {!$a{$_}} @merge; my @cb = grep {!$b{$_}} @merge; print "\@a的補(bǔ)集:@ca \n"; print "\@b的補(bǔ)集:@cb \n"; |
免責(zé)聲明：本站部分文章和圖片均來(lái)自用戶(hù)投稿和網(wǎng)絡(luò)收集，旨在傳播知識(shí)，文章和圖片版權(quán)歸原作者及原出處所有，僅供學(xué)習(xí)與參考，請(qǐng)勿用于商業(yè)用途，如果損害了您的權(quán)利，請(qǐng)聯(lián)系我們及時(shí)修正或刪除。謝謝！
始終以前瞻性的眼光聚焦站長(zhǎng)、創(chuàng)業(yè)、互聯(lián)網(wǎng)等領(lǐng)域，為您提供最新最全的互聯(lián)網(wǎng)資訊，幫助站長(zhǎng)轉(zhuǎn)型升級(jí)，為互聯(lián)網(wǎng)創(chuàng)業(yè)者提供更加優(yōu)質(zhì)的創(chuàng)業(yè)信息和品牌營(yíng)銷(xiāo)服務(wù)，與站長(zhǎng)一起進(jìn)步！讓互聯(lián)網(wǎng)創(chuàng)業(yè)者不再孤獨(dú)！
掃一掃，關(guān)注站長(zhǎng)網(wǎng)微信
大家都在看
