首页 > 编程 > Perl > 正文

perl用grep map求交集、并集、补集的实例代码

2020-06-04 20:27:47

字体：大中小

来源：转载

供稿：网友

代码如下:
#!/usr/bin/perl
#
# 用grep map 获取两个列表的交集并集、补集
#
use strict;
my @a=("a","b","c","d","e");
my @b=("b","g","f","e");
print "列表a数据： @a /n";
print "列表b数据: @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的补集@ca，@cb，即@a和@b相对于@merge的补集
my @ca = grep {!$a{$_}} @merge;
my @cb = grep {!$b{$_}} @merge;
print "/@a的补集:@ca /n";
print "/@b的补集:@cb /n";

上一篇：Shell编程的一些知识集合

下一篇：PERL脚本学习笔记

学习交流

笔记本电脑指纹识别功能遭到破坏怎么办？

笔记本电脑指纹识别功能遭到破坏怎么办？...

热门图片

猜你喜欢的新闻

猜你喜欢的关注

新闻热点

从零开始了解5G：快速读懂5G发展历史

2020-06-03 23:16:58

网易与华为签署战略合作协议共同推动游戏、音乐和教育业务

2020-06-03 23:14:37

58集团原副总裁解王燕加入一亩田任COO

2020-06-03 23:09:25

谷歌前CFO出任Twitter董事长股东加大对管理层施压

2020-06-03 23:01:42

Zynga斥资18亿美元收购移动游戏公司Peak

2020-06-02 13:17:57

B站发行7亿美元2027年到期的可转换优先债券

2020-05-30 22:36:09

疑难解答

图片精选

网友关注