perl的菜鸟问题：如何去掉数组里的重复元素？

冰川火云

生成的一个数组，有以下元素组成
“人事部, 财务部, 销售部, 人事部,销售部,....”
如何只取出“人事部, 财务部, 销售部”这样不重复的元素组成一个新的数组？
有什么函数可以判断一个元素是否已经存在于数组里面？
我该用@deplist还是%deplist来命名这个数组？

请高手指点一下，谢谢

freefall

[quote]原帖由 "冰川火云"][/quote 发表：

1. 
   
2. #！/usr/bin/perl
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. my %saw;
   
7. my @duplicated = ("人事部“，...);
   
8. 
   
9. @saw{@duplicated} = ();
   
10. my @unduplicated = sort keys %saw;
    
11. print "@unduplicated\n";
    

复制代码

没测试过，应该可以的啦，主要用到了hash的key是唯一的这个特点

冰川火云

[quote]原帖由 "freefall"]没测试过，应该可以的啦，主要用到了hash的key是唯一的这个特点[/quote 发表：


哈哈，多谢 freefall ~，测试通过了，果然是巧妙的方法啊！