[perl] 数组去重
2016-07-08 17:43
232 查看
use strict;
use warnings;
use 5.010;
use Data::Dumper qw(Dumper);
my @words = qw(foo bar baz foo zorg baz);
my @unique = uniq( @words );
say Dumper \@unique_words;
sub uniq {
my %seen;
return grep { !$seen{$_}++ } @_;
}
http://cn.perlmaven.com/unique-values-in-an-array-in-perl
use warnings;
use 5.010;
use Data::Dumper qw(Dumper);
my @words = qw(foo bar baz foo zorg baz);
my @unique = uniq( @words );
say Dumper \@unique_words;
sub uniq {
my %seen;
return grep { !$seen{$_}++ } @_;
}
http://cn.perlmaven.com/unique-values-in-an-array-in-perl
相关文章推荐
- Spring 注解详解
- PHP报错“Parse error: syntax error, unexpected T_VARIABLE”的解决办法
- Runloop的使用
- QT中多线程QWaitCondition例子解析
- EDM资讯分享:Focussend应邀出席第五届出境自由行&定制游高峰论坛
- Python访问数据库——学习笔记
- Python电子邮件——学习笔记
- echart.js的使用与API
- Tkinter教程之Checkbutton篇
- Android开发之ViewPager实现轮播图(轮播广告)效果的自定义View
- 数据库设计原则
- 微软Azure云之企业Exchange 2016部署10—数据库配置
- PHP之双向链表(SplDoublyLinkedList)简介
- Codevs 1183 泥泞的道路
- Hash表
- 如何绘制基因结构图(包涵外显子内含子的)
- 一个调用网易云音乐API 下载想要歌曲的几行字
- MySQL的基本知识 -- 函数
- [转]eclipse借助hibernate tool从数据库逆向生成Hibernate实体类
- 提升进程权限-OpenProcessToken等函数的用法