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

来源:爱站网时间:2021-09-18编辑:网友分享
最近有不少朋友向爱站技术小编要perl 用grep map求交集、并集、补集的例子,于是今天小编抽出一些时间来整理了一些,这些都是比较有参考价值的,有需要的朋友可以了解下
 

#!/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";
以上内容就是爱站技术频道小编为大家分享的perl用grep map求交集、并集、补集的实例代码,看完以上分享之后,大家应该更加了解了吧,想知道更多干货敬请关注爱站吧。

上一篇:怎么操作Perl 文本文件的读写操作、文件的重命名和删除、多个文本文件的合并实现代码

下一篇:冒充su ,perl写的su.pl盗取root密码,怎么办

您可能感兴趣的文章

相关阅读

查看更多 >