数组求差集
2015-11-14 23:03
204 查看
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
相关文章推荐
- html中ul元素水平排列问题
- 银行实时支付系统是怎么躲过双十一这一坎的呢?
- 如何在大学里脱颖而出(其一)
- OpenCV中读取视频帧像素值的一般方法
- java设计模式—工厂模式
- OpenCV中读取视频帧像素值的一般方法
- 下一个风口:机器人--工业/农业4.0(李泽湘演讲笔记)
- TEXshade教程- 多重比对着色软件包
- 画笔与画刷
- 在UBUNTU虚机中部署宿主机可访问的MYSQL服务
- MySQL性能优化
- MySQL日志——配置与查看二进制日志
- Transaction: atomicity, consistency, separability, persistence
- 关于EDITTEXT的监听,以及限制特定字节数的实现
- Python学习路线及资源
- 计算机图形初上手
- android调试时apk可运行,导出签名的apk后, 有些功能闪退,
- HDU 5563 Clarke and five-pointed star(判断正五边形)——BestCoder Round #62(div.1 div.2)
- web页面乱码之字符集
- Normalization Methods