Perl -- 数组和hash -- 判断元素是否存在数组中

判断元素var是否存在于varlist数组中：

#my @varlist = (1,2,3,4);#my $var = 2;my %vars = map { $_ => 1 } @varlist;if(exists($vars{$var})) {...... Logic}

往varlist中加入新的非重复元素：

$vars($var2)=1;@varlist = keys %vars

对varlist排序：

sub sort_method{}my new_varlist = sort(varlist, sort_method);#生成新的数组print join("\n", new_varlist);