Perl寻找去除数组中重复元素
2015-08-24 23:40
260 查看
原文地址:/article/6999762.html
Perl寻找去除数组中重复元素
写一个小程序时候,需要去除一个数组中的重复元素,搜索了一下,找到的代码主要是两种,一种是使用grep函数,一种是转换为hash表,代码分别如下:使用grep函数代码片段:
代码:
my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 ); my %count; my @uniq_times = grep { ++$count{ $_ } < 2; } @array; |
代码:
my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 ); my %saw; @saw{ @array } = ( ); my @uniq_array = sort keys %saw; |
代码:
my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 ); my %count_hash; my @uniq_array; foreach my $value ( @array ) { if( exists( $count_hash{ $value } ) ) { next; } else { $count_hash{ $value } = 1; push( @uniq_array, $value ); } } |
#!/usr/bin/perl use strict; my %hash; my @array = (1..10,5,20,2,3,4,5,5); #grep 保存符合条件的元素 @array = grep { ++$hash{$_} < 2 } @array; print join(" ",@array); print "n";
相关文章推荐
- samba学习
- uva820 Internet Bandwidth(最大流模板题)
- jquery分析网址
- Linux查看设置系统时区
- linux关机相关命令
- 题目:两数之和
- python学习第四天
- myeclipse构建maven项目,webapp下 classes文件编译出错
- requirejs实现模块化
- 关于C语言 值传递和址传递的思考
- php大力力 [013节]mySQL数据库乱码问题我还没解决
- node.js(三)url处理
- python spark 配置
- 异常
- sqoop 安装使用
- iOS NSFileManager
- 使用git时避免每次提交输入密码
- 简简单单讲sort--perl
- 判断线段相交模板
- 二维凸包模板