1.去重复
#!/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";
2 判断元素是否在数组中
数组中没有类似hash的简单exists函数
A:
print "EXIST\n" if $value~~@array;
B:
print "EXIST\n" if grep {$value == $_ } @array;
C:使用类似c语言的风格,遍历这个数组,查找变量是否匹配。
foreach ( @arr)
{
if( $vv eq $_ )
{
print "$vv\n"
}
}
D:使用map,查找数组中是否含有该变量
map { if($vv eq $_) { print "$vv\n"} } @arr;
E:使用grep,查找数组中是否含有该变量
print( grep /^$vv$/, @arr );