设为首页收藏本站
开启辅助访问
切换到窄版

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1794|回复: 0

Perl去除数组中重复元素

[复制链接]
发表于 2011-10-6 11:07:52 | 显示全部楼层 |阅读模式
  1. #!/usr/bin/perl
  2. use warnings;
  3. use strict;
  4. use DBI;
  5. my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 );
  6. my %saw;
  7. my @out=grep(!$saw{$_}++,@array);
  8. print "@out\n";
复制代码



  1. #!/usr/bin/perl
  2. use warnings;
  3. use strict;
  4. use DBI;
  5. my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 );
  6. my %saw;
  7. my @out;
  8. foreach(@array)
  9. {
  10.     if (!$saw{$_})
  11.     {
  12.         push (@out,$_);
  13.     }
  14.     $saw{$_}++;
  15. }
  16. print "@out\n";
复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|生物信息学论坛 ( 蜀ICP备09031721号  

GMT+8, 2017-3-23 12:13 , Processed in 0.096278 second(s), 22 queries .

Powered by Discuz! X3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表