个人中心
gpt4 book ai didi

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

转载 作者：qq735679552 更新时间：2022-09-29 22:32:09 24 4
gpt4 key购买 nike

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章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用grep map求交集、并集、补集的实例代码的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。

24 4 0
文章推荐： 什么是RDB和AOF? 一文了解Redis持久化!
文章推荐： 分手个性签名女生伤感心痛大全 你在那里我在这里只是怀念不再相见
文章推荐： 体验 Xedit 文本编辑器的实用功能
文章推荐： perl 删除数组元素的几种方法小结
qq735679552
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com