数组求差集

最新推荐文章于 2022-06-16 18:56:44 发布

scan724

最新推荐文章于 2022-06-16 18:56:44 发布

阅读量373

点赞数

分类专栏： zj-脚本

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/49840265

版权

zj-脚本专栏收录该内容

93 篇文章 30 订阅 ¥39.90 ¥99.00

订阅专栏

这篇博客通过一个Perl脚本展示了如何找出两个数组的差集。脚本中，定义了两个数组@a和@b，然后使用grep和哈希$count来过滤只在@a中出现的元素，最后打印出差集结果：3 4 5 aa bb。

摘要由CSDN通过智能技术生成

oadb01:/home/oracle> cat a1.pl 
my @a=qw(1 2 3 4 5 aa bb );
my @b=qw(1 2 );
@b = grep {$count{$_} == 1 } grep {++$count{$_}} (@a, @b);
print "@b\n"
oadb01:/home/oracle> perl a.1
Can't open perl script "a.1": No such file or directory
oadb01:/home/oracle> perl a1.pl 
3 4 5 aa bb