# !/usr/bin/perl -w## 用grep map 获取两个列表的交集并集、补集# use warnings use strict; my @a = ( " a " , " b " , " c " , " d " ,